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