use strict;
use warnings;

my $string ="GAP_SPAN09 - GAP SPAN base (Scratch Testing [TSMC11] : tsmc11_wld(sxfatd12j)) GAP_SPAN03 - GAP SPAN base (DFD E2E Testing [TSPAN04: tspan04-dfdint-wld(sxfamd6f)) POS_WLI02 - POS_WLI02 Web Logic Integrator";

my @array;
while ($string =~ m/(\w+\s?)-/g)
{
	push (@array, $1);
}


print join("\t", @array);