#!/usr/bin/perl -w

 use strict;

 my %frequency = ();

 $frequency{$_}++ for (split /\W/, <>);
 print "$_: $frequency{$_}\n" for (keys %frequency);