my @fields = split( /\s*\<\s*/ )
    and print join (' ', $fields[1], $fields[5], $fields[6]) . "\n"
    for <DATA>;