#!/usr/bin/perl

# http://perlmonks.org/?node_id=1185969

use strict;
use warnings;

my $sentto = 'Fred Flintstone (US) (fredf@gmail.com)';
$sentto =~ m/.+\K\(.*/;
print "First: $`\nSecond: $&\n"