#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

%firma2url = ('Elektro-Schuster' => 'http://www.schusteria.de',
              'Wimatec'          => 'http://www.wimatec.de',
              'Wenger Computing' => 'http://www.wengcomp.de'
             );
 
$message = <<EOT;
Das Unternehmen Elektro-Schuster legte heute seine Jahresbilanz 
offen. Demgemäß brachte die spektakuläre Fusion mit Wenger Computing 
nur Verluste ein, während mit der Augsburger Firma Wimatec stattliche 
Gewinne erzielt wurden. Der Vorstands-Sprecher von Elektro-Schuster, 
Max Schuster, kommentierte das Ergebnis wörtlich als "Paßt scho".
EOT

print insert_hyperlinks($message);

sub insert_hyperlinks {
    my $text     = shift;
    
    foreach $firma (keys %firma2url) {
        $text =~ s#$firma#<A HREF=$firma2url{$firma}>$firma</a>#g;
    }

    $text;
}