http://www.perlmonks.org?node_id=10079

Already understood the technique, thanx :)