if(int($string) eq $string)
{
print "ist int\n";
}