Select Code to Download

foreach $from (glob("$free_path/$Account::cata_acc/_data/messages/im*"
+)) {
  substr($from, 0, 2) = '';   # Delete the leading "im"
...
trim.creator=self
EOF
}