$foo = $bar // $baz ; s/(.*\s*)(.*)\b\s*\/\/\s*(.*)\b/$1defined($2) ? $2 : $3/gm;