Select Code to Download

#!/usr/bin/perl

...
@numerics = ($data =~ /([\d\.]+)/g);

print "*$_*\n" for @numerics;

---------- Capture Output ----------
> "c:\perl\bin\perl.exe" _new.pl
...
*99.79*

> Terminated with exit code 0.