substr($string, 0, 30) =~ /$re/