Select Code to Download

#!/usr/bin/env perl
use strict;
...
        printf "Array item: %-30s\tmatch: %s\n", $_, $1;
    }
}