#!/usr/bin/perl

#my $filename = $ARGV[0];

#should add check loops in this listing...

($filename, @searchstrings) = (@ARGV);

open(my $fh, '<:encoding(UTF-8)', $filename)
    or die "Could not open file '$filename' $!";

print "$filename,";
while (my $line = <$fh>) {
    chomp $line;
    foreach $patt (@searchstrings){
#	print $line . "\n";
	if(($val) = $line =~ /$patt\s*:\s*(\S+)/){
	    print "$val , "  
	}
    }
}
print "\n";

