File::Basename, it's in the core.

use File::Basename;
my @suffixes = qw/.pl .plx .pm/;
while (<>) {
    print basename( $_, @suffixes), $/;
}
[download]