Select Code to Download

print map { chr hex } split /\s+/, $line x $nlines;

for my $repeat (1..$nlines) {
    print map { chr hex } split /\s+/, $line;
}