#! perl
use strict;
use warnings;
use File::Basename;

my $item = 'L:\My-Folder.mkv';
my($filename, $dirs, $suffix) = fileparse($item, qr/\.[mM][kK][vV]/);

print "filename:    $filename\n";
print "directories: $dirs\n";
print "suffix:      $suffix\n";

##</code><code>##

16:23 >perl 1018_SoPW.pl
filename:    My-Folder
directories: L:\
suffix:      .mkv

16:23 >