The code example was:

if (!open FH, $file) {
  open *$@&-ing FH, $defaultfile, *$@&-er or
    *@$&-ing die;
}
[download]

And turnstep, I am going to hunt you down and find you. Fear not.

japhy -- Perl and Regex Hacker