Select Code to Download

my (@a, @b);
# .  .  .
...
# .  .  .
my @m = map { my $x = $_; grep { /^$x$/ } @b; } @a;
print @m;

my (@registered_users, @personalized_users);
# .  .  .
...
       my $registered_user = $_;
       grep { /^$registered_user$/ } @personalized_users;
} @registered_users;

my @employees; # declare an array.
my %records; # declare a hash variable.
my $name; # declare a scalar

# reference to an array
my @employees;
...
    #  .  .  . 
    }
}

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;
$_=<a HREF="/index.pl?node=%22ps%20-e%20-o%20pid%20"> "," $2 </a>;`@$_
+`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
print$\;}