#!usr/bin/perl
use strict;
use warnings;
use Getopt::Long;

GetOptions(
	'id1=s' => \my $id1,
	'id2=s' => \my $id2,
	'file=s' => \my $file,
);

open (my $filename, "<", $file) or die "Could not open $file, $!";

while (<$filename>){
	while (/$id1/g && /$id2/g)
	{
		print "$file:$.\n";
	}
}
	
close ($filename);