if (/(\l\w)(?{local $lastchar = ord $1;})(??{chr(++$lastchar)}){4}/) {
   # INSERT YOUR CODE HERE
}