#!/usr/bin/perl
$file = shift;
open(I,"<$file");
local $/;
$_ = <I>;
s|<list>(.*?)</list>|"<list>".join("\n",map{"<item>$_</item>"}
    split"\n",$1)."</list>"|ges;
print;