my $str ='My Name <sip:+15555551212@192.168.0.200';
(my $val) = $str =~ /:([^\@]+)/;
print "$val\n";