Help for this page
Select Code to Download
Select
or
download this
my %data; ($data{$_}) = <IN> =~ m/(\d+\.\d+)\s*$/ for 1 .. 2;