##Perl, <s>28</s> <s>22</s> 21 bytes (20 + `-p` flag)

    s/[a-z]/$&.$&^$"/ige