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