*truth = *beauty;
$truth = 'La belle dame sans merci hath thee in thrall!';
print $beauty, "\n";