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