perl 文字列の置換2

#スペースで区切られた２つの入力文字列の順番を入れ替えるスクリプト
$string = <STDIN>;
chomp($string);

#正規表現内で（）を使うと、マッチング変数$&,$`,$'は無効になり、代わりに（）を順番に並べた時は、マッチした内容がその順番で特殊変数$1,$2,...に入る。
$string =~ s/(\w+)\s+(\w+)/$2 $1/;

print "$string\n";

#実行結果
# Jhon paul
# paul Jhon