#!/usr/bin/perl

use strict;
use warnings;

my $line = 'TEXT=Hello\nWorld!\n'; # No interpolation
$line =~ s/^TEXT=//g;
print "$line\n";
my $interpolated = eval "qq{$line}";
print $interpolated;

##</code><code>##

Hello\nWorld!\n
Hello
World!