perl -e 'sub _{print map{chr}(@_,10)}map{_$_}qw(74 65 80 72)'