if (my @matches = $text =~ /some (regex) here (with) lots (of) captures/)
{
  print join "\t", @matches;
}