use constant MYTEST => '.txt';
my $expression = quotemeta( MYTEST );
my $string = "test.txt";
if ( $string =~ /$expression/ ) {
    print "Match\n";
}