sub isbeg {
  my $test = shift;
  foreach (@beginnings) { return 1 if $test =~ /$_/ }
  return;
}

sub isend {
  my $test = shift;
  foreach (@endings) { return 1 if $test =~ /$_/}
  return;
}