my $numbers="1 1.0 3.547 92.34 343.2234";
while($numbers=~/(\d+)(?![\d.])/g){
   print "$1 is an integer\n";
}
print "-"x20,"\n";
while($numbers=~/(\d+)(?=[^.\d])/g){
   print "$1 is an integer\n";
}