use strict;
use warnings;

while (<STDIN>)  {
        print "--> $_";
        if ( /^2/ )  {
        break;
        }
        print "--> $_";
}

while (<STDIN>)  {
        print "==> $_";
}