Did you consider using split?

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

CountZero

Update:Beaten by L~R

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law