perl -le '@a=qw[2a-8.1 2a-8.2 3-a1 2-a8];foreach (@a) {s/\d(?:\.\d+)?$/$&+.1/e;print}'