use strict;
use warnings;

my $re = qr/y/;
$_ = 'yep';
print /y/;
print "\n".$re;
print "\n"./$re/;

##</code><code>##

1
(?-xism:y)
1