vi 치환정규식을 perl 정규식으로 바꾸고 싶습니다.

제가 정규식 결과를 제대로 확인 안했군요. :$
다음 식은 일단 제대로 돌아갈 것 같습니다.

$ cat test.pl
s/^,(.+?)([^"])\n$/,\1\2"\n/
$ cat test.dat
,/* KKKK */ "BBBB"
bbbb
,/* KKKK */ "BBBB
,bbbb
,bbbb"
bbbb"
$ perl -p test.pl test.dat
,/* KKKK */ "BBBB"
bbbb
,/* KKKK */ "BBBB"
,bbbb"
,bbbb"
bbbb"

#!/usr/local/bin/perl -w

use strict;

local *FH1;
local *FH2;
my $source;
my $target;

foreach $source (@ARGV) {
        $target = "converted_" . $source;
        open(FH1, "<", $source) || die "Open $source was failed.\n";
        open(FH2, ">", $target) || die "Create $target was failed.\n";

        while (<FH1>) {
                $_ =~ s/^,[^"]*(?=\n)$/$&"/;
                print(FH2 $_);
        }

        close(FH1) || die "Close $source was failed.\n";
        close(FH2) || die "Close $target was failed.\n";
}

exit 0;

$ cat sample1.txt sample2.txt
blah
,blah"
,blah
,"
,

$ ./t.pl sample1.txt sample2.txt
$ cat converted_sample1.txt converted_sample2.txt
blah
,blah"
,blah"
,"
,"