# Get everything between up to D:
  perl -lwe 'print join " ", grep scalar(1../D/), qw(A B C D E F)'
  # prints:
  # Use of uninitialized value in range (or flip) at -e line 1.
  # Use of uninitialized value in range (or flip) at -e line 1.
  # Use of uninitialized value in range (or flip) at -e line 1.
  # Use of uninitialized value in range (or flip) at -e line 1.
  # Use of uninitialized value in range (or flip) at -e line 1.
  # Use of uninitialized value in range (or flip) at -e line 1.