open (my $F, '>', $file) || die $file; my $feedstr = $rss->as_string(); $feedstr =~ s#()(\s*)#$1$2$fname$2#; die "Improper rss version in generation!?" unless $feedstr =~ s#<(rss version="2\.0")[^>]*>#<$1 xmlns:my="http://$HOME/">#; $feedstr =~ s#\n#\n\n#; print $F $feedstr; close $F;