Select Code to Download

#!/usr/bin/perl
use strict;
...
    print "I saw the character [$&]\n";
    redo if $& eq 'e';
    }

I saw the character [f]
I saw the character [r]
...
I saw the character []
Use of uninitialized value in string eq at test line 8.
I saw the character [d]

#!/usr/bin/perl
use strict;
...
    redo if $& == 5;
    last if $i == 10;
    }

I saw [1]
I saw [2]
...
I saw [8]
I saw [9]
I saw [10]

#!/usr/bin/perl
use strict;
...
    redo if $& == 5;
    last if $i == 10;
    }

I saw [1] and [1]
I saw [2] and [4]
...
I saw [8] and [64]
I saw [9] and [81]
I saw [10] and [100]

#!/usr/bin/perl
use strict;
...
    redo if $& == 1;
    last;
    }

I saw [1]
Use of uninitialized value in concatenation (.) or string at test3 lin
+e 9.
I saw []