#!/usr/bin/perl -w

use strict;

print $ARGV[0],"\n";
open FILE, $ARGV[0] or die $!;
my $count = 0;
while (<FILE>) {
    $count++;
    if ($_ =~ /^\w+\s*.*\(.*?\)/) {
	print "Line $count: ", $_."\n";
    }
}
close FILE;