open FH,"<input" or die "can't open:$!"; #opening the input file

while(<FH>) { #reading line from a file one by one
if((split '\*',$_)==3) #splitting the line by using '*' and checking whether the split returns three which means three filds in it
{
push @arr1,$_ ; #pushing that line to an array1
}
else {
push @arr2,$_; #pushing that line to an array2 if it isn't having three fields in it
}
}

print "Lines with two *'s in it\n"; 

print @arr1;

print "Lines with two *'s in it\n";

print @arr2;

close FH; #closing the file handle