Simple way of extracting directory name:

use File::Basename;
$s = '/home/monks/thanksforhelping1234567890.ext';
print dirname $s;
[download]