shift @words until $words[0] =~ m/$start/;