##
*This
is
a
nice
line
*
##
##
use strict;
my $sequence = "12345678901234567890123456789012345678901234567890123456789012345678901234567890123456";
my $len = int(length($sequence)/80);
my @seq = ($len > 0) ? unpack("(A80)$len A*",$sequence) : $sequence;
print "*",join("\n",@seq),"*\n";