$xmlfile =~ 's/^/XML|/' ;