use strict;
use diagnostics;
use Getopt::Long;

my ( $timing ) = 0 ;
my $regexp = qr(\s+execution\s+time\s+\(\s+millis\s+\)\s+\:\s+);
while(<DATA>)
{
	chomp;
	do {
		( $timing ) = /$regexp(\d+)/;
		print "$timing ";
	}if /$regexp/;
}
print "Done!\n";
__DATA__
 PPP execution time ( millis ) : 1062
 PPP execution time ( millis ) : 6460
 PPP execution time ( millis ) : 7570
 PPP execution time ( millis ) : 38646
 PPP execution time ( millis ) : 45658
 PPP execution time ( millis ) : 577