while (<INPUT>) {
    print if length($_) > 251;
}

##</code><code>##

while (<INPUT>) {
    chomp;
    print $_."\n" if length($_) > 250;
}