my ($key, $val) = split /(: | is | and )/ , $_, 2; $info{$key} = $val;