3:05 >perl -wE "my $q = qr/^ab$/; say $q;"
(?^u:^ab$)

 3:06 >