Help for this page
./regex.pl Input.file '##(.*?)_kxx' 'KO$1'
#!/usr/bin/perl ... |Chlre4|28893|est.pg.C_80374 |Chlre5|338325|pm.pg._10_#_4
regex.pl '\|(\d+)\|' "#$1#"