Select Code to Download

my @temparr = ($packets[$pnum] =~ /$str/g);

my @temparr = ($packets[$pnum] =~ /\Q$str\E/g);

foreach my $p (@packets) {
  foreach my $l (2..length($p)) {
...
    }
  }
}