$string =~ /$re/g; print "$_: $result{$_}\n" for @keywords;