$ perl pm1.pl < pm1-dat.txt
george:2~~14
nick:5~~10~~20
peter:3