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