Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $text = 'foo/bar/baz/boff zip/zit/zot/zap';
...
"
'foo/bar/baz/boff zip/zit/zot/zap'
'fooOTHERboff zipOTHERzap'

c:\@Work\Perl\monks>perl -wMstrict -le
"my $text = 'foo {bar} baz { whiz } boff';
...
   'foo OTHER baz OTHER boff'
B: 'abc {tuvw} de { xyz } fghi'
   'abc OTHER de OTHER fghi'

do { $foundstring =~ s§(<a |\[)([^<>\"]*)(<span class=\"foundterm\">)~
+~([^~]+)~~(</span>)§$1$2$4§igs;    } while $foundstring =~ m§(<a |\[)
+([^<>\"]*)(<span class=\"foundterm\">)~~([^~]+)~~(</span>)§is;

c:\@Work\Perl\monks>perl -wMstrict -le
"my $text = '123 abc 456 de 789 fghi 321';
...
done: '123 OTHER 456 OTHER 789 OTHER 321'
B: '123 rs 456 tuvw 789 xyz 321'
   '123 OTHER 456 OTHER 789 OTHER 321'