#!perl

$foo = "ABC";
print "($foo)\n";
$foo =~ s/B/*/e;
}
print "($foo)\n";