my @a_out;

my $line = read_file('data.txt');

if ($line =~ /\bdIonly\b/) {
	# remove everything after last 'dIonly'
	$line =~ s/(.*)\bdIonly\b.*?$/$1/;
	my @segments = split(/\bdIonly\b/,$line);
	for my $str (@segments) {
		if ($str =~ /.*(\bworkset\b\(\(.*)/ ) {  
			my $workset = $1;
			print "workset content: $workset\n\n";
			push(@a_out,$workset);
		}
		else {
			print "no workset\n";
		}
	}
}