I've been meaning to say, thank you all for your input.

I quite understand that the regex isn't perfect, and I'll attend to that.

I can't use Image::Size because it isn't installed, but I read the documentation for Image:Magick and used its quicker "ping" method which gets basic info about graphics without having to open and read them.
--

($_='jjjuuusssttt annootthhrer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;
[download]