$ echo 'a' | perl -pe 'chomp; $_++; $_.=$/'
b