$_='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";

##</code><code>##

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


##</code><code>##

sub b(@) {shift =~ / (.*) (.*) (.*) (.*)/; @_}
$, = ' ';
print b 'Not Another Hacker Just Perl', $3, $1, $4, $2;