A Perl script which removes the tag added by Telus in mobile e-mail, so that various services can work properly when using mobile e-mail from a Telus phone.
Settings
$user
The user name for the POP3 server hosting the mailbox used by the filter program.
$pass
The password for the mailbox.
$host
The name of the POP3 server.
%redir
A list of e-mail addresses. The key is the address from which a message is sent to be filtered. The value is the e-mail address to which the filtered message is sent.
This script is easily customizable for other service providers which add a static tag to e-mails that you want filtered. Simply change the regular expression on line 39, replacing the Telus tag between the first two slashes with the tag added by your service provider.