my $match = quotemeta('tftp>');
if ($str =~ /$match/) { 
 ...
}