$varHash{WEB} = &TWiki::Func::getPreferencesValue( "WEB" );
$varHash{TOPIC} = &TWiki::Func::getPreferencesValue( "TOPIC" );
...
$output =~ s/\$(\w+)/$varHash{$1}/mg;