@vacation = map { s/\$SUBJECT/SUBJECT/g }
               $telnet->cmd("cat ~$username/.vacation.msg");