my $line = qx{grep "^ARGV[0]\|" filename.txt}