Help for this page

Select Code to Download

Select or download this

foreach my $db (@db) {
  foreach my $in (@in) {
    $db =~ s/$in//g;
  }
}