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