Select Code to Download

use strict;
use warnings;
...
my $tokens_ref = $p6->Format('abc');
die "Invalid pattern" unless (defined $tokens_ref);
print Dumper $tokens_ref;

$VAR1 = [
          'a',
          'b',
          'c'
        ];