#!/usr/bin/perl --
use strict; use warnings;
use Path::Class;

while (<DATA>) {
    chomp;
    my $file = file( $_ );
    print $file->parent, ' ... ', $file->basename, "\n";
}
__DATA__
a/b/c/filename1.someext
b/c/filename2.sh
d/e/f/g/filename3.exe