use String::Interpolate qw( interpolate );
my $test = '\ntest1\ttest2\ntest3\n';
print interpolate $test;