in reply to Re: Regex To Remove File Extension (rindex)
in thread Regex To Remove File Extension

...or, using substr() as an lvalue: 

substr($n,rindex $n,'.') = '';

[download]

In Section Seekers of Perl Wisdom