if($VAR =~ m/^\d+$/)
{
  # Integer
}
else 
{
  # Not integer
}