in reply to Perl answer to the Microsoft IIS 'Code Red' infected admins

You can use tr instead for one-to-one character mappings, you know. It's faster. 
$message =~ tr/ /_/;

[download]

In Section Cool Uses for Perl