#!perl -lp
$_+=/,/-$'-2*/^10/