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