$line=~ /key/ and print OUT1 <IN1>;