perl -lwe'for (qw( A B C D E F )) { print; last if /D/ }'