Help for this page

Select Code to Download

Select or download this

foreach my $i (@n) {
  
...
  
  $i =~ s/^(\d{16}).*?(.{30}Some search tring.{30})/$1$2/gm; # again, 
+is the /m needed?
}

Select or download this
```
perldoc perlrequick
perldoc perlretut
```