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