my $numbers="1 1.0 3.547 92.34 343.2234";

   while($numbers =~ /(^|[^.\d])(\d+)/g) {
     print "$2 is an integer\n";
   }