#### #### #### if($line =~ //i) { print "FILE = $File::Find::name Author = $1\n"; }