my $save = tell( DATA );

while( <DATA> ) {
  print if /a/ .. /z/;
}

print "-" x 5, "\n";

seek( DATA, $save, 0 );

while( <DATA> ) {
  print if /a/ ... /z/;
}

exit 0

__DATA__
a b z
c d
w q
z