$str =~ s!(/\*[^/]+\*/)!>>>> \1 <<<<!g;  # /* comments */
$str =~ s!(\s//[^/\n]+)!>>>> \1 <<<<!g;  # // comments
print $str;