my $x = qr/^foo\.c$/;
print "$x\n";

##</code><code>##

(?-xism:^foo\.c$)