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

my $msg = 'Hello\nWorld';
print "Msg was $msg\n";
$msg =~ s/\\n/\n/g;
print "Msg is $msg\n";