http://www.perlmonks.org?node_id=1210504


in reply to Re: Unexplained benchmark when using chop vs. chomp (or neither)
in thread Unexplained benchmark when using chop vs. chomp (or neither)

Note that both chop and chomp can take an array as the argument. Interestingly,
chop @copy;
makes mychomp and mychop just as fast as nada.
($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,