use strict; use warnings; use Test::More tests => 4; my $input = 'foobarbaz'; my @table = $input =~ m#()#g; is $#table, 2; is $table[0], 'foo'; is $table[1], 'bar'; is $table[2], 'baz';