Select Code to Download

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

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

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

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

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