if(/^.*?\d+.*?(http:\/\/.*?)\/$php.*/) {
  # ok, what the f*ck. get out. just…out.
  # repeat everything above, just WORSE
  $h{$1}++;
}

Source: Direct link to the source code
Software: Perl Underground
Programming language: Perl