http://www.perlmonks.org?node_id=1227611

Stealing part of choroba's idea.
perl -e 's/^/pack+q.a..($^F^$^F**$^F),qq^\x19"\x11\x04mX^^\$\//e/print +'