Select Code to Download

References are not allowed as default values, you must wrap the defaul
+t of 're' in a CODE reference (ex: sub { [] } and not []) at ...

#! perl
use strict;
...
my $t = Test->new();

print "$_ ", $t->match($_), "\n" for 'abc123def', '456';