Doesn't work for me on Win XP. I get
Can't find string terminator "'" anywhere before EOF at -e line 1.

A simple fix to the system call fixed the problem.

#!/usr/bin/perl
@m=qw/13 12 108 105 101 78/;$c=join("",map(chr,qw/112 114 
105 110 116 32/));1 && $c .="map chr,reverse qw/@m/";1&& 
system "perl -e \"$c\"";
[download]