$ diff Chat.pm.dist Chat.pm
61c61
<     my @msgs=($c=~/message\s+author="([^\"]+)"[^>]+>\s*(.*?)\s*<\/message>/g);---
>     my @msgs=($c=~/message\s+[^>]*author="([^\"]+)"[^>]+>\s*(.*?)\s*<\/message>/g);