#!/usr/local/bin/perl

while ($line = <STDIN>) {
        if ($line =~ ?test?) {
                print ("$line\n");
        }
        reset;
}
