if ($test =~ m#(??{substr($test, 0, $_)})#) {