Help for this page

Select Code to Download


  1. or download this
    $_='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";
  2. or download this
    sub a(@){$,=$"; shift =~ /$"@m$/; @_}
$_='Not Another Hacker Just Perl';
@m=qw(& 3 1 4 2);
$"=',$';
print eval's/^.*$/$"=" "/me; @m=("(.*)")x$#m;a $'."@m";
  3. or download this
    sub b(@) {shift =~ / (.*) (.*) (.*) (.*)/; @_}
$, = ' ';
print b 'Not Another Hacker Just Perl', $3, $1, $4, $2;