in reply to Another Regular Expression Question

Not with a RE but as 1-liner anyway: 
my $program = (split /\./, ( split /[\\\/]/, $0)[-1] )[-2];

[download]

pelagic

In Section Seekers of Perl Wisdom