Pretty-Printing X(HT)ML with XML::Twig

#/usr/bin/perl

use BWright::FNP;

$file = 'C:pathDesktopsome.xml';
$resource_path = 'C:pathDesktop';
$resource_path .= '\';

@contents = &readFile($file);
$xmlString = join(' ', @contents);
#Close image tags that aren't closed.
$xmlString =~ s/(<img)([^>]*)([^/])(>)/$1$2$3 /$4/sig; 

&writeXMLFile($resource_path.&getFileName($file)."_new",$xmlString);

exit;