if ($bob =~ /^\/\*/) {
  $comment = 1;
}