Select Code to Download

#!/usr/bin/perl

...
'123aa' looks like a number: no  (SvNV(): 123)
'aa123' looks like a number: no  (SvNV(): 0)
'1.23' looks like a number: yes  (SvNV(): 1.23)