Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    $out .= $txt;
    print Text::Wrap::wrap('', ' ' x $indent, $out), "\n";
}

{
    my $c = 0; 
...
print ${counter()}, "\n" for 1..3;
${counter()} = 99; 
print ${counter()}, "\n" for 1..3;

# Use a sub to generate closures to be used as settable counters.
sub new_counter {
...
print '$c2: ' . ${&$c2}, "\n" for 1..3;
${&$c2} = 99;
print '$c2: ' . ${&$c2}, "\n" for 1..3;

 
sub new_lvalue_counter { 
    my $c = 0; 
...
print &$c3, "\n" for 1..3;
&$c3 = 10;
print &$c3, "\n" for 1..3;

{
    my @c;
...
counter(1) = 100;
print counter(0), "\n";
print counter(1), "\n";

#!/usr/bin/perl -wl
use strict;
...
print /$pattern/ ? '   ': 'no ', "match: '$_'" for @good;
print 'BAD Tests';
print /$pattern/ ? '   ': 'no ', "match: '$_'" for @bad;

 
GOOD Tests
   match: '0e0'
...
   match: '1.1a'
   match: '1a.1'
   match: '1.a1'

<S_Shrum> our?  never seen that one...Kewl...I'll research and impleme
+nt if
          that does the trick...thanks
...
<theorbtwo> Yes, [kodo|sir]!  Not that she hasn't been trying, sir!
* castaway .oO( gone .. )
<djantzen> [sauoq] is not and never has been a troll [merlyn].

...

...
<sauoq> [Corion] Sshh... don't tell anyone else I'm not gnat... I woul
+dn't
        want that to get around. ;-)
* sauoq chuckles.