$ perl -e 'use strict; ($_=lc <>), chomp for my ($d,$v);
  print "got $d and $v\n"'