Select Code to Download

if($str =~ s#check this [^out]#check this one#){
}

$str ="$str ="check this out check this here";";

$str =~ s#check this ((?!out).)+#check this one#gs;

print $str;