perl -MO=Deparse -e '"$a$b".$c.$d'
"$a$b" . $c . $d;