use warnings;
use strict;

while (<DATA>) {
    chomp;
    my @arr = split /\s/,$_;
    print "$arr[4] $arr[5] ";
    for (6..$#arr){
        if ($arr[$_] eq 'name'){
            print "$arr[$_] $arr[$_+1]\n";
            last;
        }
    }
}

__DATA__
A B C . id "ABS0056"; D; E; F; G; name "SAM"; H; I; J; K;
A B C . id "ABS0059"; D; E; F; name "JOE"; G; H; I; J; K;
A B C . id "ABS0060"; D; E; F; G; name "MARY"; H; I; J; K;
A B C . id "ABS0057"; D; E; F; G; H; name "BILL"; I; J; K;
A B C . id "ABS0065"; D; E; name "RONIE"; F; G; H; I; J; K;
A B C . id "ABS0061"; D; E; F; G; name "STEPHAN"; H; I; J; K;