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

##</code><code>##

open FILE, .... or die "blah...:$!";
..grep it...
close FILE;