c:\@Work\Perl\monks>perl -wMstrict -le
"my $text = 'foo/bar/baz/boff zip/zit/zot/zap';
 print qq{'$text'};
 ;;
 my $regex_object = qr{ /bar/baz/ }xms;
 my $plain_string =    '/zit/zot/';
 ;;
 $text =~ s/ $regex_object | $plain_string /OTHER/xmsg;
 print qq{'$text'};
"
'foo/bar/baz/boff zip/zit/zot/zap'
'fooOTHERboff zipOTHERzap'