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