in reply to sed equivalent in perl

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

[download]

Replies are listed 'Best First'.
Re^2: sed equivalent in perl
by mhooper (Novice) on Mar 07, 2017 at 19:53 UTC
    Thank you
[reply]

In Section Seekers of Perl Wisdom