my $str = "Red and Blue";
my $sbs = "red/green";
my $rex = qr/$sbs/si;
$str =~ s/$rex/g;