( kikuchiyo | 2011. 03. 07., h – 16:51 )

Javítva:

perl -pwe '
BEGIN{
%csere = (
    "EZT:52798" => "ERRE",
    "EZT:52799" => "EMERRE",
    "EZT:52800" => "AMARRA",
);

$regexp_string = join "|", sort keys %csere;
$regexp = qr/($regexp_string)/;
}

# ez fut le minden sorra
s/$regexp/$csere{$1}/;
'