#!/usr/bin/perl
use strict;
use warnings;

my $string = "12\tWS:00001\tAny number of (\t.+)\tword_1\tword_2";
print join("\n", $string =~ /\t([^\t]*)\t([^\t]*)$/);