my $Message = BibleVerse{'2 Samuel 12:7a'};
$Message =~ s/Nathan/Russ/;
$Message =~ s/David/vroom/;
print $Message
[download]

(Not the surrounding context, of course...just the statement)

:-)

Russ