#!/usr/bin/perl -w
use strict;
use String::Interpolate qw( interpolate );

my $string = <DATA>;
print interpolate($string);

__DATA__
Hallo\ndu da