Could make the pattern generic enough to split the whole line into stripped list elements before picking the desired ones by position:

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