Select Code to Download

$ perl pattern_matching.pl 
Name "main::bob" used only once: possible typo at pattern_matching.pl 
+line 50.
Use of uninitialized value $bob in print at pattern_matching.pl line 5
+0.

while (my ($k, $v) = each %$locals) {
    local ${$k} = $v;
}

use strict;
use warnings;

...
    no strict;
    print $bob;
};