09/03/02 22:03:42 bC9LrltQ BE:781119656-2BP(1028)
my $input ="//commentA \n var1 = 3 ; //commentB \n varx = 8 ;";
my $src_regex = qr/((\n\s+)var1\s=[^;]+;.*)\n/;
my $dest = "\$1\$2varp = 5;\n";
$input =~ s/$src_regex/$dest/sg;
$1,$2を変数の中に入れると置換されないのは 仕様？