#!/usr/bin/perl
#
# attempt to replicate C function strpbrk
# Usage:
#   strpbrk string listofchars
# Explanation:
#   search string for any one of a list of chars
# Result:
#   returns "yes" if any char is found
#   returns "no" if no char of the list is found
#
if ($#ARGV < 1) {
  print "no";
  exit(1);
}
  if ($ARGV[0] =~ /[$ARGV[1]]/) {
    print "yes";
  } else {
    print "no";
  }
