Select Code to Download

my $word = 'sigma';

...
) {
   print("$text ", ($text =~ $re ? "matches" : "doesn't match"), "\n")
+;
}

map { [ $word =~ /(.{$_})(.*)/] } 1 .. length( $word) - 1;

map { ++ pos; [ split /\G/] } ( $word) x ( length( $word) - 1);