c:\@Work\Perl\monks>perl -wMstrict -le
"my $rx = qr{ (?i) f a i t h }xms;
 print 'qr// object: ', ref_or_not($rx);
 print $rx;
 ;;
 my $rx_stringized = '' . $rx;
 print 'stringization: ', ref_or_not($rx_stringized);
 print qq{'$rx_stringized'};
 ;;
 my $s = 'UnFaItHfUl';
 $s =~ $rx_stringized;
 print qq{'$&'};
 ;;
 sub ref_or_not {
   my $scalar = shift;
   return ref $scalar ? ref $scalar : 'not a ref';
   }
"
qr// object: Regexp
(?^msx: (?i) f a i t h )
stringization: not a ref
'(?^msx: (?i) f a i t h )'
'FaItH'