> my $suffix = $file; # suggests a file name
> ...
> rev1.config # looks like a file name

##</code><code>##

perldoc File::Basename

##</code><code>##

fileparse("/foo/bar/baz.txt", qr/\.[^.]*/);