$str = <FILEHANDLE>;
while($str=~s/\/\*(.*?)\*\///gixm){
    print $str;
}