>perl -wMstrict -le
"my $qr1 = qr/^xyz$/;
 print $qr1;
 ;;
 my $qr2 = qr/^xyz$/i;
 print $qr2;
"
(?^:^xyz$)
(?^i:^xyz$)