:map _ee ^[:.,.perldo s/$/$_/ee^M