#!/usr/bin/perl -w

use strict;
use v5.30;

my $valid;
while (<>) {
	chomp;
	my (@d) = sort { $a <=> $b } /(\d+)/g;
	$valid++ if $d[0]+$d[1] > $d[2];
}

say $valid;
