single quote and substitutions

[Adriano Allora]

Hi to all,
I need to substitute in a text a serie of word with another serie of word (for example: when I have the name I want the correct surname).
Modifying a someone else script I wrote this one:


#!/usr/bin/perl -w

my $original = '(name1|name2)';
my $new = '(surname1|surname2)';

$file_name = "ciccio.txt";

open (INPUT, $file_name);

while (<INPUT>)
{
s/$original/$new/g;
$cortext .= $_;
}

print $cortex;

close (INPUT);

(first)It doesn't work correctly (it substitutes each $original with the entire string "(surname1|surname2)"), and I'm not able to understand why.
(second)Another thing: How can I write again, in a way more elegant, the part:

$cortext .= $_;
}
print $cortex;

for example having only

}
print;

?

(third) have an exaordinary new year (and new years eve), I'm gratefull to all af you beacuse it is useful to read your mail also when I'm not directly interested by their subject.

all'adr


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