die 'Bad value!'
    unless substr( $attr, $_[1], $_[2] ) =~ $regex;