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