while($ARGV[0]=~/(\S+)/gcs)
{
  my $n=$1;
  print $1 if($n=~tr!0-9!!/length($1) > 0.5);
}