$fname =~ s/(?:$extra)//;
[download]

Thank you for the possible solution Choroba! I tried it and it works. It looks like the non-capturing group prevents the last successfully matched regular expression from being used when the pattern is empty.

"It's not how hard you work, it's how much you get done."

I think it's simpler, the pattern isn't empty, because (?:...) is always part of the pattern. Meta characters count too.

This idiom is meant to be used as s//something/ in complicated parsing, kind of inherited from sed/awk IIRC.

You should also be aware that a genuinely empty pattern IS always matching. In your case the replacement is just invisible because empty.

So I'd rather prefer to make this explicit and self documenting

• s/$extra// if $extra

  Nowadays I doubt there are more than a fraction of a percent of programmers knowing/using this feature.

  I'd really like to see a Perl version/feature to switch it off by default.

  Cheers Rolf
  _{(addicted to the Perl Programming Language :)
  see Wikisyntax for the Monastery}