sed equivalent in perl

[mhooper]

newbie to Perl I'm trying to convert an existing sed replacement into a perl field substitution sed -r "s/(.*<sip:)(.*)(@.*)/\2/g" trying to get output of only the value between <sip: and @ for parsing out phone data in field such as "My Name <sip:[phone]@192.168.0.200" and all I want out is [phone]. thank you Murray

[Anonymous Monk]

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

[mhooper]

Thank you