C:\usr\local\share>perl
use strict;
use warnings;
use v5.10;
use String::Interpolate qw/interpolate/;

my @lines = <DATA>;

for my $line ( @lines ) {
   chomp $line;
   say "data line is *$line*";
   my $real = interpolate($line);
   say "real line is *$real*";
}

__DATA__
hello\ngoodbye
good\nevil
yes\nno

##</code><code>##

data line is *hello\ngoodbye*
real line is *hello
goodbye*
data line is *good\nevil*
real line is *good
evil*
data line is *yes\nno*
real line is *yes
no*