open (Input1,"input.txt")|| die "input.txt file found!";
open (Result1,">output.txt")|| die "output.txt file found!";

my $a;
my $c;
my $e;
my $d;
my $f;
my $file;


my @array;
while(my $line = <Input1>)
{
	if($line =~   /((\d{1,4}\.\d*) )sec/)  
	{	
                   $d = $1;
		   @d = $1;		   
         }

        if($line =~   /((\d\.\d*) )MBytes/)  
	{ 	
                   $a = $1;
		   @a = $1;		   
         }
	if($line =~   /((\d\.\d*) )Mbits/)  
	{		
                   $f = $1;
		   @f = $1;				   
         }	
	if($line =~   /(\d{1,3}\.\d*) ms/)  
         {		
                   $c = $1;
		   @f = $1;		   
	}
	if($line =~   /((\d{1,3}\.)?\d{1,3})%/ 	)   
 	{		 	
                   $e = $1;
		   @f = $1;		         	    
	}
	 else
	 {
		   #print "nothing\n";
	
	 }
	chomp($a);
	chomp($c);
	chomp($d);
	chomp($e);
	$file=join("     ",$d,$a,$f,$c,$e);

	print Result1 "$file\n";
			
	
}

close(Input1);
close(Result1);