my @four=$sentence=~ /[a-zA-Z]{4}/igs; # Line 9