gistfile1.txt

sub strip_nl {
    my $code  = shift;
    my $inner = do {
        local $_MT   = '';
        local $_MT_T = '';
        my @args = Devel::Caller::Perl::called_args(0);
        $code->(@args);
        $_MT;
    };
    $inner =~ s/^\s+//smg;
    $inner =~ s/[\r\n]//g;
    $_MT .= $inner;
}