$_='Not Another Hacker Just Perl';
@m=qw;& 3 1 4 2;;sub a(@){$,=$";shift=~m%$"@m$%;@_}
$"=q*,$*;print eval's@^.*$@$"=" "@me;@m=("(.*)")x$#m;a $'."@m";