$sourcefile = $_ if -f and /$datfile/i ;