in reply to regex question
TIMTOWTDI: reverse the string and capture (using lookahead -- see perlretut) the word before each tab.