use strict;
use warnings;

my $fullname = '/windows/system32/cmd.exe';
my $p = rindex($fullname, '/');
my $filename = ++$p ? substr($fullname, $p) : $fullname;
print "$fullname\n\n$filename";
exit;