YARRG - Yet Another Revenue Research Gatherer <%perl> $_= <request_comp()->name(); while (s/^(\w+)\t(.*)$//m) { my ($tname, $thtml) = ($1,$2); if ($tname eq $name) { print "| $thtml\n"; } else { print "| $thtml\n"; } }