Select Code to Download

use strict;
use warnings;
...
    my $out = $1 . ( '_' x ( 27 - length( $1 ) ) );
    print "$out\n";
}