Select Code to Download

#!/usr/bin/perl

...
    print s/(?=\n$)/$lines{$_}/r;
    }
  }

lodv
     EJHFG      tst1
sdmd
     IJFH       tst2
     LAKJSK     tst2