use Regexp::Common;

# get your $data ...

if ($data ~= /$RE{num}{int}/){
  print "It's an integer\n";
}