#!/usr/bin/perl
use strict;
use warnings;

while(<>) {
	chop;
	my ($c);
	my (@linia)=split(//);
	print "\"";
	for $c (@linia) { 
		if( $c eq "\\") { 
			print "\\\\";
		} elsif ($c eq "\"") { 
			print "\\\"";
		} else { 
			print $c;
		}
	}
	print "\\n\"\n";
}