my $field = "Jo Doe (Tel: 999-111-111)";
$field =~ s/\b(.+)\b\s*\1\b/$1/g;
print $field;