[Israel.pm] segmentation fault in regex

[Yossi.Itzkovich at ecitele.com]

OK, let's try.

The file is at ftp://ftp.ecitele.com/outgoing/inf_vie.htm



The code:
#! /usr/local/bin/perl -w
my $name=shift;
open (FILE,$name) or die "BLA\n";
local $/;
my $file=<FILE>;
print "$name\n";
$file=~
s~/\*[^*]*\*+([^/*][^*]*\*+)*/|//[^\n]*|(\"(\\.|[^\"\\])*\"|'(\\.|[^'\\])*'|.[^/"'\\]*)~$2~gs;

Any ideas ?

Yossi