my ($a, $b, $c) = qw/asdf foo bar/;

s/d/D/g for ($a, $b, $c);

print "$a;$b;$c\n";

##</code><code>##

# Under Construction