>perl -wMstrict -le
"my $foo = 'Foo';
 my $bar = 'Bar';
 ;;
 my $x = sprintf 'ignore \slash, expand %s, %s.', $foo, $bar;
 print qq{'$x'};
"
'ignore \slash, expand Foo, Bar.'