Select Code to Download

use strict;
use warnings;
...
    $parts =~ /.{$len}/p;
    print ">$id\n${^MATCH}\n${^POSTMATCH}\n"
}