use strict;
 
my $sequence = "This is a nice line ";
# Note: You should  use '\1' rather than '$1'.
$sequence =~ s/(\S{1,80})/\1\n/g;
print "*",$sequence,"*\n";