# 60 chars
sub f {
  #23456789_123456789_123456789_
  my($p,$d)=@_;my@c=$p=~/[^_]/g;
  $p=~s/_/[^@c]/g;grep/^$p$/,@$d
}