#!/bin/perl -w

use strict;
use warnings;

my ($filename, $lineOfCode);

open (FH, "filename.txt")|| die "could not open filename.txt";

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