foreach my $e (@result1) {
    $e =~ /(\d+.\d+.\d+.\d+","\d+","\w+.\w+.\w+)/m;
    push(@result2, $1); 
  }