s/\$(\w+)/dbLookup($1)/eg;

sub dbLookup {
# Do database lookup (which would take a few more lines!)
return $lookedup ? $lookedup : '';
}