perl -MO=Deparse -e '$foo = "blarny!"; print $foo.bar.baz.quux;'