#!/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'";