while(<FH>){
if(m/^(\d*)\s/){ $lineOfCode = $1; }
if(m/(\w*\.\w*)$/){ $filename = $1; }
}