#!/usr/bin/perl # http://perlmonks.org/?node_id=1207515 use strict; use warnings; $_ = <