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