my $re = qr/foo/;
print "$re";