[MacPerl] join - appending

[allan]

hi

how can i output:
<dcv id=1>append here
<dcv id=2>append here
<dcv id=3>append here

instead of just:
<dcv id=1>append here
<dcv id=2>append here
<dcv id=3>

thanks
allan
#!/usr/bin/perl -w
$str = "<dcv id=1>some stuff  <dcv id=2> more  <dcv id=3> more stuff ";
$_ = $str;
$_ = join "append here\n", /<dcv[^>]+>/ig;
print $_;