Select Code to Download

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

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

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