#!perl -paF\B
$_^=~-$_&$"x@F