10 lines
101 B
Perl
10 lines
101 B
Perl
while(<>)
|
|
{
|
|
while ( /DISTMAP/ )
|
|
{
|
|
s/DISTMAP/MPCPDD/;
|
|
}
|
|
print $_;
|
|
}
|
|
|