Select Code to Download

while (<INPUT>) {
   my ($key, $value)=split (/ is |: | at /);
   # save $key and $value; or print them; or ...
}