while (my $line = <DATA>)
{
    print $line if (split /\./,$line) < 3;
}