Seems to me the following would do the trick:

$line=~/^(\S+) [ ] > [ ] (\S+), .* IPv6 .* \.547 .* xid=(\d+)/x;
[download]