A different way of looking at this could be to use formats (see perlform), maybe through formline and $^A. A format of ^<<<<<<<< (etc) should split a line at the correct place, and that can be adjusted using $: