Replacing string

[Zary Necheva]

Hi,
I have a file with this data:

..CITY/STATE. |aBalt., MD
..COUNTY.   |aBALTIMORE
..CITY/STATE. |aBaltimore, Md
..COUNTY.   |aBALTIMORE
..CITY/STATE. |aBaltimore, Maryland
..COUNTY.   |aBALTIMORE
..CITY/STATE. |aBaltimore,  MD
..COUNTY.   |aBALTIMORE
..CITY/STATE. |aBALTIMORE, Md
..COUNTY.   |aBALTIMORE
……

The data has to be change this way”
..CITY/STATE. |aBaltimore, MD
..COUNTY.   |aBALTIMORE
..CITY/STATE. |aBaltimore, MD
..COUNTY.   |aBALTIMORE
………………
This is my script :

#!/usr/bin/perl -w
use strict;

while(<>){
        s/\.CITY\/STATE\. \|aBalt*/\.CITY\/STATE\. \|aBaltimore, MD/g;
        print;}

This is my output
..CITY/STATE. |aBaltimore, MD., MD
..COUNTY.   |aBALTIMORE
..CITY/STATE. |aBaltimore, MDimore, Md
..COUNTY.   |aBALTIMORE
..CITY/STATE. |aBaltimore, MDimore, Maryland
..COUNTY.   |aBALTIMORE
..CITY/STATE. |aBaltimore, MDimore,  MD
..COUNTY.   |aBALTIMORE
..CITY/STATE. |aBALTIMORE, Md
..COUNTY.   |aBALTIMORE

What I am doing wrong?

Thanks.




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]