Perl Regex: swap words

#!perl -w $/ = " /n "; $_ = " one two remainder ... "; s/ ([^ ]*) *([^ ]*) / $2 $1 /; print;