>perl -we"my ($dginput, $volinput) = map { chomp; lc } <>;"
a
b
c
^Z

##</code><code>##

>perl -we"map { chomp; lc } <>;"
a
b
c
^Z