in reply to Re: Re: Drop middle part in a substitution
in thread Drop middle part in a substitution

s/^(\.*\.).*(...)$/$1$2/s;

This doesn't work for me:

$_ = 'filename.12345Gif';
s/^(\.*\.).*(...)$/$1$2/s;
print;

[download]

Output:

filename.12345Gif

Drop that first backslash :)

s/^(.*\.).*(...)$/$1$2/s;

dave

In Section Seekers of Perl Wisdom