use File::Basename; $s = '/home/monks/thanksforhelping1234567890.ext'; print dirname $s; [download]
In reply to Re: Regular Expression Assistance by dda in thread Regular Expression Assistance by Anonymous Monk