#!/usr/bin/perl while () { chomp; print pack "H*", $_ }