foreach my $pat (@ar) {
  $pt->add_string($pat);
}