my $regex = "\\.$searchfor"; $file =~ m/$regex/;