print "Input a string :";
$_ = <STDIN>;
chomp($_);
if (/^"([^"\\]|\\"|\\\\)*"$/){
    print "valid comment\n";
}