===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libshell-perl-perl-0.0026/lib/Shell/Perl.pm-361-        if ( $context eq 'scalar' ) {
libshell-perl-perl-0.0026/lib/Shell/Perl.pm:362:            my $out = $self->eval($_);
libshell-perl-perl-0.0026/lib/Shell/Perl.pm-363-            if ($@) { warn "ERROR: $@"; next }
##############################################
libshell-perl-perl-0.0026/lib/Shell/Perl.pm-365-        } elsif ( $context eq 'list' ) {
libshell-perl-perl-0.0026/lib/Shell/Perl.pm:366:            my @out = $self->eval($_);
libshell-perl-perl-0.0026/lib/Shell/Perl.pm-367-            if ($@) { warn "ERROR: $@"; next }
##############################################
libshell-perl-perl-0.0026/lib/Shell/Perl.pm-369-        } elsif ( $context eq 'void' ) {
libshell-perl-perl-0.0026/lib/Shell/Perl.pm:370:            $self->eval($_);
libshell-perl-perl-0.0026/lib/Shell/Perl.pm-371-            if ($@) { warn "ERROR: $@"; next }
##############################################
libshell-perl-perl-0.0026/lib/Shell/Perl.pm-390-
libshell-perl-perl-0.0026/lib/Shell/Perl.pm:391:# $shell->eval($exp)
libshell-perl-perl-0.0026/lib/Shell/Perl.pm-392-sub eval {
##############################################
libshell-perl-perl-0.0026/lib/Shell/Perl.pm-690-
libshell-perl-perl-0.0026/lib/Shell/Perl.pm:691:    $answer = $sh->eval($exp);
libshell-perl-perl-0.0026/lib/Shell/Perl.pm:692:    @answer = $sh->eval($exp);
libshell-perl-perl-0.0026/lib/Shell/Perl.pm-693-
##############################################
libshell-perl-perl-0.0026/t/50isolated.t-10-$_ = ' $_ = 1000 ';
libshell-perl-perl-0.0026/t/50isolated.t:11:my $val = $sh->eval($_);
libshell-perl-perl-0.0026/t/50isolated.t-12-is($val, 1000);
##############################################
libshell-perl-perl-0.0026/t/50isolated.t-15-
libshell-perl-perl-0.0026/t/50isolated.t:16:my $val2 = $sh->eval($_);
libshell-perl-perl-0.0026/t/50isolated.t-17-TODO: {