>perl -wMstrict -le
"my $str = 'foo';
 ;;
 if ($str =~ s{ foo }{bar}xms) {
   print qq{substituted with $str};
   }
"
substituted with bar