while (<>) {
    print if tr/:// >= 3; # Special use of tr to count column separators
}

##</code><code>##

while (<>) {
    my @cols = split;
    print if @cols >= 4;
}