#!/usr/bin/perl


my $digits;

while(<>)
  {
    $digits = 0;
    if (/0/) { $digits++; }
    if (/1/) { $digits++; }
    if (/2/) { $digits++; }
    if (/3/) { $digits++; }
    if (/4/) { $digits++; }
    if (/5/) { $digits++; }
    if (/6/) { $digits++; }
    if (/7/) { $digits++; }
    if (/8/) { $digits++; }
    if (/9/) { $digits++; }

    if($digits > 8) {
      print $_;
    }

  }