Select Code to Download

my $filepath = 'c:\somedir\file.ext'

$filename eq 'file.ext'

$filepath =~ /([\w|\.]*)$/;
my $filename = $1;