xml string zerlegen

[jac]

$str =~ s/<phonenumber>([^<]*)</phonenumber>/$1/i;

danke erstmal!!

also wenn ich das so mache, dann sollte doch die telnr aussgegeben werden? tuts aber nicht... was mach ich falsch?

thx mfg

#!/usr/local/bin/perl -w
use strict;

$str = "<phonenumber>[phone]</phonenumber>";
$str =~ s/<phonenumber>([^<]*)</phonenumber>/$1/i;

print $str;