use strict;
use warnings;

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

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

##</code><code>##

Bareword "break" not allowed while "strict subs" in use at fluff.pl line 7.
Execution of fluff.pl aborted due to compilation errors.