$_='My email address is <Robert@NetCat.co.uk>.';

/<(robert)\@((netcat).(co).(uk))>/i;

print "Found it ! $1 at $2, $3, $4, $5\n";