#!/usr/bin/perl
# your code goes here
foreach my $a ("123.4", "", "123e4", "slovo") {
if (($a +0) eq $a) {
}
}
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQpmb3JlYWNoIG15ICRhICgiMTIzLjQiLCAiIiwgICIxMjNlNCIsICJzbG92byIpIHsKCWlmICgoJGEgKzApIGVxICRhKSB7CgkJcHJpbnQgJGE7Cgl9Cn0K