Your code doesn't show how you process your file initially but maybe you don't know the special variable $.

while (<FILE>) {
    if (/what not/) {
        print "We found what not in line $.\n";
    }
}
[download]

more info perlvar