in reply to Drop middle part in a substitution

  s/[^\.]*(?=(?:jpg|gif|txt)$)//;

[download]
Boris

In Section Seekers of Perl Wisdom