my $patch = "patch-5.1.1.21510";
if( $str =~ m/\Q$patch\E/ ) { .... }