sitemap.xmlからurl抜き出してテキストに保存

use utf8;
open(FILEHANDLE, 'sitemap.xml');
$i=0;
while($line = <FILEHANDLE> ){
if($line =~ /<loc>(.+?)<\/loc>/){
$source .= $1."\n";
}
}

close(IN);
print $source;
open(OUT, "> url.txt");
print(OUT $source);
close(OUT);