#!/usr/bin/perl -w
use strict;
my $sentto = 'Fred Flintstone (US) (fredf@gmail.com)';
$sentto =~ m/\(.+?@.+?\)/;
print "First: $`\nSecond: $&"