Select Code to Download

$text = "test of  this # ? my 0923 5834t674";
.... .. .......... . . .. .... ........

if ($text =~ $nbsp) {
$text =~ s/(.*)$nbsp(.*)//g;    # ( ) PUTS TEXT INTO $1, $2, etc.
$tex1 = $1;    # WHAT COMES BEFORE THE PRE TAG
...
$text =~ s/[^ ]/$repl/g;
}
print "$text\n";