#!/usr/bin/perl -w use strict; use Data::Dumper::Simple; my @numbers; while () { @numbers = $_ =~ m/([+\-]?[0-9\.]+)/g; } print Dumper(@numbers); __DATA__ iters = 320 (3.05s) aver = 9568.34 us (9603.45 us, 1.01s, 99.79%)