# <begin> <begin>
$xml =~ s!(<\S+?>)\s+><\S+?>!$1$2!g;

# </end> <begin>
$xml =~ s!(</\S+?>)\s+><\S+?>!$1$2!g;