$file = 'electricity.txt';
open(INFO, $file);
@lines = <INFO>;
close(INFO);
$counter = 1;
foreach $line (@lines)
{
	if ($line =~ /$ARGV[0]/)
	{
		print "$counter ";
		$_ = $line;
		s/$ARGV[0]/($ARGV[0])/g;
		print $line;
		$counter++;
	}
	else
	{
		print $line;
	}
}