in reply to Meaning of $ special variables

To make your own code more readable, consider using the English module, which allows you to use more understandable names for the special variables. 
split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(join(q{},map
+{sprintf(qq{%010u},$_)}(2**2*307*4993,5*101*641*5261,7*59*79*36997,13
+*17*71*45131,3**2*67*89*167*181))=~/\d{2}/g));

[download]

In Section Seekers of Perl Wisdom