Select Code to Download

my $output = "";
while ($text =~ m{\G(?:&plus;|(<maths>.*?<\/maths>|[^&<]+|.))}gs) {
    $output .= $1 || "&thinsp;&plus;&thinsp;";
}
print $output, "\n";