Select Code to Download

#!/usr/bin/env perl

...
sub process {
    -f && -x && $ARGV[0] eq $_ && print $File::Find::name, "\n";
}

{ $a->{b} = $b || last }

package Tie::Hash::OnlyIf;
sub STORE {
...
package main;
tie my %data, Tie::Hash::OnlyIf;
$data{b} = $b;

use strict;
use warnings;
...
ok( "A1"        =~ /[\w\d]{2,}/ );
ok( "56429K01B" =~ /[\w\d]{2,}/ );
ok( "1132086"   =~ /[\w\d]{2,}/ );