$/="\n\0";

while (my $line = <>) {
    print pack("C*", map $_ & 0xff, unpack("v*",$line));
}