Select Code to Download

Select or download this

use strict;
use warnings;
...
while( $string =~ /c/g ) {
    print "$-[0]\n";
}

Select or download this

use strict;
use warnings;
...
while( $string =~ /c/g ) {
    print "@-\n";
}

Select or download this

Use of uninitialized value in join or string at /tmp/bug1.pl line 7.
Use of uninitialized value in join or string at /tmp/bug1.pl line 7.
Use of uninitialized value in join or string at /tmp/bug1.pl line 7.
...
Use of uninitialized value in join or string at /tmp/bug1.pl line 7.
Use of uninitialized value in join or string at /tmp/bug1.pl line 7.
2

Select or download this

Summary of my perl5 (revision 5 version 8 subversion 5) configuration:
  Platform:
...
    /usr/local/lib/site_perl
    /usr/lib/perl5/site_perl/5.8.4
    /usr/lib/perl5/site_perl/5.8.4/i686-linux-thread-multi