gistfile1.txt

sub strip_nl (&) {
    my $code  = shift;
    my $mtref = do {
        no strict 'refs';
        ${__PACKAGE__ . '::_MTREF'};
    };
    my $before = $$mtref;
    $$mtref = '';
    $code->();
    $$mtref =~ s/^\s+//smg;
    $$mtref =~ s/[\r\n]//g;
    $$mtref = $before . $$mtref;
}