in reply to pattern matching question

while (<DATA>) {
    chomp;
    m/([^\/\\]*)$/;
    print "$1\n";
}

__DATA__
c:\perl/lib/XSLoader.pm
c:\perl/lib/

[download]

In Section Seekers of Perl Wisdom