my $string = 'Here comes \n a new line';
$string = eval "qq#$string#";
print $string;