#<span class=abshead>#g; $inpuut=~s#

#!/usr/bin/perl @files= <*.xml>; foreach $file (@files){ open my $in, '<', "$file" or die $!; open my $out, '>', 'newtext.xml' or die $!; my $n = 0; while(<$in> ){ s((.*?)) { $inpuut=$&; $inpuut=~s##

#g; $inpuut=~s#(.*?)<\/surname>(.*?)<\/given\-names><\/name>#$2 $1#g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s##, #g; $inpuut=~s##

#g; $inpuut=~s#(.*?)#

$2#g; $inpuut=~s##

#g; $inpuut=~s###g; "$inpuut" }gcsei; s#

#

#g; s#<\/article\-title><\/title\-group>#

#g; s#(.*?)#$1#g; s#

##g; s###g; s###g; s###g; s((.*?)) { $inpuut=$&; $inpuut=~s##

#g; $inpuut=~s##<span class=abshead>#g; $inpuut=~s#

#: #g; $inpuut=~s#

#
#g; $inpuut=~s#

#

#g; $inpuut=~s#

#

#g; "$inpuut" }gcsei; s((.*?)) { $inpuut=$&; $inpuut=~s##

#g; $inpuut=~s##<span class=abshead>#g; $inpuut=~s##: #g; $inpuut=~s##, #g; $inpuut=~s##

#g; "$inpuut" }gcsei; s##

#g; s((.*?)) { $inpuut=$&; $inpuut=~s##

#g; $inpuut=~s#
#
#g; $inpuut=~s#
#

#g; "$inpuut" }gcsei; s((.*?)) { $inpuut=$&; $inpuut=~s##<p class="sec-head1">#g; $inpuut=~s##

#g; "$inpuut" }gcsei; s##

#g; s((.*?)) { $inpuut=$&; $inpuut=~s#

#

#

#g; $inpuut=~s#

#

#g; $inpuut=~s##

#g; "$inpuut" }gcsei; s((.*?)) { $inpuut=$&; $inpuut=~s#

#

#

#g; $inpuut=~s#

#

#g; $inpuut=~s##

#g; "$inpuut" }gcsei; s((.*?)) { $inpuut=$&; $inpuut=~s#

#

#

#g; $inpuut=~s#

#

#g; $inpuut=~s##

#g; "$inpuut" }gcsei; s((.*?)) { $inpuut=$&; $inpuut=~s#

#

#

#g; $inpuut=~s#

#

#g; $inpuut=~s##

#g; "$inpuut" }gcsei; s((.*?)) { $inpuut=$&; $inpuut=~s#

#

#

#g; $inpuut=~s#

#

#g; $inpuut=~s##

#g; "$inpuut" }gcsei; s((.*?)) { $inpuut=$&; $inpuut=~s#

#

#

#g; $inpuut=~s#

#

#g; $inpuut=~s##

#g; "$inpuut" }gcsei; s((.*?)) { $inpuut=$&; $inpuut=~s#

#

#

#g; $inpuut=~s#

#

#g; $inpuut=~s##

#g; "$inpuut" }gcsei; s##

#g; s##

#g; s##

Notes

#g; s###g; s() { $inpuut=$&; $inpuut=~s##

#g; $inpuut=~s#(.*?)

(.*?)

#

$1 $2

#g; $inpuut=~s##

#g; "$inpuut" }gcsei; s((.*?)) { $inpuut=$&; $inpuut=~s##<p class=ack><span class="acktitle">#g; $inpuut=~s#

#: #g; $inpuut=~s#

#

#g; "$inpuut" }gcsei; s#^(.*?)#^$2#g; s#(.*?)#$2#g; s#(.*?)#$2#g; s#(.*?)#$2#g; s#(.*?)#$2#g; s() { $inpuut=$&; $inpuut=~s##

#g; $inpuut=~s#(.*?)(.*?)#

$1 $2

#g; $inpuut=~s#

#

#g; $inpuut=~s#

#

#g; $inpuut=~s#

#

#g; $inpuut=~s##

#g; $inpuut=~s###g; $inpuut=~s##

#g; "$inpuut" }gcsei; s() { $inpuut=$&; $inpuut=~s##

#g; $inpuut=~s#(.*?)

(.*?)

#

$1 $2

#g; $inpuut=~s##

#g; $inpuut=~s##

#g; $inpuut=~s#

#

#g; $inpuut=~s#

#

#g; $inpuut=~s##

#g; $inpuut=~s###g; $inpuut=~s###g; "$inpuut" }gcsei; s((.*?)) { $inpuut=$&; $inpuut=~s##<p class="sec-head1">#g; $inpuut=~s##

#g; $inpuut=~s#(.*?)##g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; "$inpuut" }gcsei; s###g; s###g; $inpuut=~s#

#

#g; s###g; s###g; s###g; s###g; s###g; s###g; s###g; s#(.*?)##g; s#(.*?)##g; s###g; s((.*?)) { $inpuut=$&; s##

#g; $inpuut=~s##<p class="sec-head1">#g; $inpuut=~s##

$2

#g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s###g; $inpuut=~s##

#g; $inpuut=~s##

#g; $inpuut=~s##

#g; $inpuut=~s###g; $inpuut=~s###g; "$inpuut" }gcsei; print $out $_; } close ($in); close ($out); my $del = "$file"; unlink $del; rename "newtext.xml", "$file"; }