Help for this page
Select Code to Download
Select
or
download this
my ($name, $dir, $ext) = fileparse($filepath, '\..*');