$ perl -le ' > $str = q{10 09}; > $reg = q{(\d+) (\d+)}; > $rep = q{"$2 $1"}; > $str =~ s/$reg/$rep/ee; > print $str;' 09 10 $