while (<ARGV>) {
   print if /some_regexp/;
}