my $text = 'employee(firstname, lastname, soc)';
if ($text =~ /employee\(([^,\s)]+)\s*,\s*([^,\s)]+)\s*,\s*([^,\s)]+)/) {
	print join("\n", $1, $2, $3);
}