my $re1=qr/foo$/;  
my $re2=qr/foo$/m;
my $re3=qr/foo$/s;
$,="\t"; $\="\n";  # just for output
print qr/$re1/, qr/$re1/m, qr/$re1/s;
print qr/$re2/, qr/$re2/m, qr/$re2/s;
print qr/$re3/, qr/$re3/m, qr/$re3/s;
__END__
(?^:foo$)       (?^:foo$)       (?^:foo$)
(?^m:foo$)      (?^m:foo$)      (?^m:foo$)
(?^s:foo$)      (?^s:foo$)      (?^s:foo$)