foreach("fp.html", "fp.cgi", "fp.pl", "fp.foo", "fp.blah") {
    my ($base, $path, $type) = fileparse("/home/users/rich36/$_", qr{\..+});
    print qq($base, $path, $type\n);
}
__RESULT__
fp, /home/users/rich36/, .html
fp, /home/users/rich36/, .cgi
fp, /home/users/rich36/, .pl
fp, /home/users/rich36/, .foo
fp, /home/users/rich36/, .blah