Help for this page
> my $suffix = $file; # suggests a file name > ... > rev1.config # looks like a file name
perldoc File::Basename
fileparse("/foo/bar/baz.txt", qr/\.[^.]*/);