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