in reply to how to extract original string from binary files?
Please see also perlpacktut.
Give a man a fish: <%-{-{-{-<