Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
$ModFile = $ARGV[0];
...
    }
print FOUT $text;
}

Select or download this

#!/usr/bin/perl
$ModFile = $ARGV[0];
...
$text =~ s/^(Identity\s*\=)[^\n]*$/$1 ABC/si;

print FOUT $text;