#!/usr/bin/perl

while (<>) {
    chomp;

    if (/^SB_SOURCE\d+="(.*)"$/i) {
	$s = lc($1);
	$s =~ s/\$\{?(\w+)\}?/defined($v{$1}) ? $v{$1} : '*** UNDEFINED VALUE ***'/ge;
	$s =~ s#.*/##;
	print "$s\n";
    }
    elsif (/^(\w+)="(.*)"$/) {
	$v{lc($1)} = $2;
    }
}

exit(0);