in reply to regex question

Use Text::CSV and set the delimiter to "\t", then extract the last two fields. Or split on the tab delimiter, and use the last two fields.

If you really want a regex you can say /.*\t([^\t]*)\t([^\t]*)$/ and have the result in $1 and $2