Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $string = '/.*uba$/i';
...
 print 'A: match' if 'uba' =~ $re;
"
(?:i:.*uba$)

c:\@Work\Perl\monks>perl -wMstrict -le
"my $string = '/.*u\/ba$/i';
...
A: match
(?^msx: \A foo (?^:(?i).*u\/ba$) )
B: match