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

##</code><code>##

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

##</code><code>##

if ($str =~ /\Qtftp>\E/) {
   ...
}