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

##</code><code>##

print "$1 $2 (..etc)\n" if /some regexp with captures/;