$program =~ s { /\*
  .*?
  \*/
} []gsx;