my $line = $_; chomp $line; my @chunks = unpack "(A5)*", $line; #### chomp; my @chunks = unpack "(A5)*", $_; #### while (my $line=) { ... #### foreach my $i (@chunks) { print ">" . $i . "<\n"; #### print ">$_<\n" for @chunks;