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