#!perl -pl
$_=s/(.)(.* )\1|.\d/$2||$&*1.1%10/e?redo:/ />$_?YES:NO