Select Code to Download

my $re1=qr/foo$/;  
my $re2=qr/foo$/m;
...
(?^:(?^:foo$)$) F    (?^m:(?^:foo$)$) F
(?^m:foo$) T         (?^m:foo$) T
(?^:(?^m:foo$)$) F   (?^m:(?^m:foo$)$) T