Select Code to Download

# 39 chars
sub f {
...
  my($p,$d)=@_;$p=~tr
  /_/./;grep/^$p$/,@$d
}

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

# 123 chars
sub g {
...
  ,sort+map{split//}grep/$p/i&&s/[@l]//g,@$d
  ;$p=y;;;c;/(.)\1{$p}/&&return$1while--$p
}