#!perl -p y/:/ /