And even another possible interpretation ... use the linux "strings" utility.

It's not Perl, but "strings myimage.jpg" will yield all strings of printable characters. Like:

*I7K
dbn^
"S3t0
VePz
|2`j
]C<v(
eH=BZ!
[download]