DB<186> use Scalar::Util qw/looks_like_number/
 => 0

  DB<187> grep { ! looks_like_number($_) } 0,"1","2 ", 3.14, " 4 ", 5e55, "six"
 => "six"