#!perl -pl $.=/.* (?{$_=$.*=$' cmp$&})^/