Re: Terms shortener :-)

For pre-5.20 perls, one needs -alpe , as a ins't implied by F .

I'd also try

perl -pe 's/.\K(.*)(?=.)/length$1/e'
[download]

(needs 5.10).

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re: Terms shortener :-) Select or Download Code

Replies are listed 'Best First'.
Re^2: Terms shortener :-) by reisinge (Hermit) on Jan 10, 2018 at 19:26 UTC
Or even `perl -pe 's/(?<=.)(.*)(?=.)/length$1/e'` [download]	[reply] [d/l]