% perl -wE'use Tie::File;tie my @A, "Tie::File", "blah.txt", discipline => ":encoding(UTF-8):crlf" or die $!; $A[2] = "Hallo";$A[4] = "Welt";'
% od -A n -c blah.txt                                                                                                                                                                   
  \r  \n  \r  \n   H   a   l   l   o  \r  \r  \n   W   e   l   t
  \r  \n  \r  \n