Select Code to Download

sub interpolate_nl {
    my $str = shift;
...
is interpolate_nl("a\\\\\\\\nb"),   "a\\\\nb";
is interpolate_nl("a\\\\\\\\\\nb"), "a\\\\\nb";
# * \b and all other escapes are unhandled and ignored!