view release on metacpan or  search on metacpan

etc/perlsh  view on Meta::CPAN

#!/usr/bin/perl
 $/ = '';        # set paragraph mode
 $SHlinesep = "\n";
 while ($SHcmd = <>) {
     $/ = $SHlinesep;
     eval $SHcmd; print $@ || "\n";
     $SHlinesep = $/; $/ = ''; 
 }

 view release on metacpan or  search on metacpan

lib/HTML/TextToHTML.pm  view on Meta::CPAN

          || die "Error: unable to open ", $self->{outfile}, ": $!\n";
        $outhandle_needs_closing = 1;
    }

    # slurp up a paragraph at a time, a file at a time
    local $/ = "";
    my $para        = '';
    my $count       = 0;
    my $print_count = 0;
    my @sources     = ();
    my $source_type;