while (<$FH>){
   if (/^x/  .. /^y/){
       ...
   }
}