Help for this page
#!/usr/bin/perl ... print s/(?=\n$)/$lines{$_}/r; } }
lodv EJHFG tst1 sdmd IJFH tst2 LAKJSK tst2