my $line = $_; chomp $line;
    my @chunks = unpack "(A5)*", $line;

##</code><code>##

    chomp;
    my @chunks = unpack "(A5)*", $_;

##</code><code>##

while (my $line=<DATA>) { ...

##</code><code>##

    foreach my $i (@chunks) {
    print ">" . $i . "<\n";

##</code><code>##

    print ">$_<\n" for @chunks;