#!perl -pl
<>=~$/,$_=$`x($;=<>).reverse$`x-$;