use SQL::Statement;
use Data::Dumper;

 my $sql    = " SELECT * from foo  where bar > 1923 ";
 my $parser = SQL::Parser->new();
 my $stmt = SQL::Statement->new($sql,$parser);
 printf "Command             %s\n",$stmt->command;
 printf "Columns             %s\n",join',',map{$_->name} $stmt->column
+s;
 printf "Tables              %s\n",join',',map{$_->name} $stmt->tables
+;
 print "Where operator\n",Dumper($stmt->where);
[download]

Command             SELECT
Columns             *
Tables              FOO
Where operator
$VAR1 = bless( {
  'arg2' => '1923',
  'arg1' => bless( {
    'table' => 'FOO',
    'name' => 'BAR'
  }, 'SQL::Statement::Column' ),
  'neg' => 0,
  'op' => '>'
}, 'SQL::Statement::Op' );
[download]

The $stmt->where structure is a tree-structure with the arg-leaves either being a string or an object. If it is not an object, then it is trivialy easy to run it through Regexp::Common and Regexp::Common::number to check its "numberness" and what kind of number (decimal, octal, hex, ...)