in reply to Search and Replace line by line not working on Filehandle

In case you were looking for another solution, you could use Tie::File, then loop over the tied array

print map{substr'hark, suPerJacent other l',$_,1}(11,7,6,16,5,1,15,18..23,8..10,24,17,0,12,13,3,14,2,4);

In Section Seekers of Perl Wisdom