% perl -MO=Deparse -e '$foo="bar"."rat"'
-e syntax OK
$foo = 'barrat';