http://www.perlmonks.org?node_id=729479


in reply to Regex To Remove File Extension

that is because you told it to take everything after a dot using a "greedy" match. You want a "non-greedy", using the ? modifier. try: /\..*?$/, alternately you could use /\.[^.]+$/ to remove a dot followed by one or more non-dot characters at the end of the string


-pete
"Worry is like a rocking chair. It gives you something to do, but it doesn't get you anywhere."