Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
              packwise   => sub { packwise  ($string, $mask) },
              regexwise  => sub { regexwise ($string, $mask) },
             });