if ( "!!!" eq substr $line => 0, 3 ) {
        $count{'!!!'}++;
        print OUTFILE $line;
    }