perl -e "$a = qq(ab); $a + 3; print $a;"  # ab

perl -e "$a = qq(ab1); $a ++; print $a;"   # ab2

perl -e "$a = qq(ab1); for(1..10) {$a ++;} print $a;" #ac1