input 1.pl;
****************

open(CFG_READ, "< txt52_mm.org") || die "Couldn't open tmp config command file for reading";
open(CFG, "> txt52_mm.cfg") || die "Couldn't open config file for writing";
...
...
...
... 
...
open(ASM_READ, "< t52${fl}a.org") || die "Couldn't open tmp";
open(ASM, "> t52${fl}a.asm") || die "Couldn't open file for writing ";
**********************
####### perl-coding start

undef $/;
open(READ, "< 1.pl") ;
$str = <READ>;
close(READ);

$str =~s#"(> )(.+?)\.(cfg|asm)"#"$1\$execdir\/$2\.$3"#gsi;

open(OUT, "> 2.pl") ;
print OUT $str;

####### perl-coding end

**********
output 2.pl
**************
open(CFG_READ, "< txt52_mm.org") || die "Couldn't open tmp config command file for reading";
open(CFG, "> $execdir/txt52_mm.cfg") || die "Couldn't open config file for writing";
...
...
...
... 
...
open(ASM_READ, "< t52${fl}a.org") || die "Couldn't open tmp";
open(ASM, "> $execdir/t52${fl}a.asm") || die "Couldn't open file for writing ";
******************