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

my $str1 = 'This is \\ simple test\n';
print "1) $str1" ."\n";

my $str2; eval '$str2="$str1"';
print "2) $str2" ."\n";