Select Code to Download

$ diff Users.pm.dist Users.pm
66c66
<       my %users=($c=~/user\s+username="([^\"]+)"\s+user_id="(\d+)"/g
+);
---
>       my %users= reverse ($c=~/user\s+user_id="(\d+)"\s+username="([
+^\"]+)"/g);

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