perl -i -pe '/\Q(?)readonly tlx=\E/ && substr($_,13,8,"blah");' /home/gpghrp/.gnupg/scripts/gpg_encr.saved