while (<>)
{
    chomp;
    if (/^\d+$/)
    {
         print "$_ is an integer\n";
    }
}