Help for this page
say "$_ => [", (m/(\d*\.?+\d*)/x ? "$1]" : ']'); # ^
#! perl use strict; ... no numbers here abc.def42 .7zx
16:39 >perl 1621_SoPW.pl 0.12 => [0.12] ... .7zx => [.7] 16:39 >