I'm sure someone like japhy could roll this (and the kitchen sink) into one regexp, but here's my stab at it.
This is tested, and worked for me.

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

Hope that helps

John J Reiser
newrisedesigns.com