>>429
sub is_numeral {
　　$_[-1] =~ /^\s*([+\-]?\d*\.?\d*(?:[Ee][+\-]?\d+)?)/;
　　$1 =~ /^[+\-]?\.?\d/ ? 1 : 0;
}