for my $str ( "str", "4str", "1.5str" ) {
	print "yes, 4 == $str \n"	if 4 == $str;
	print "yes, 0 == $str \n" 	if 0 == $str;
	print "yes, 1.5 == $str \n" 	if 1.5 == $str;
}