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