support left-handed smileys

docs/Changelog

@@ -2,8 +2,8 @@ pisg (0.66) - ??
    Christoph:
    * Features:
      + Finally added support for 'asian' smiles ^^ (requested by Christian
-       Garbs), improved the smiley regexps, and implemented new most used
-       smileys stats.
+       Garbs) and left-handed smiles (-8, improved the smiley regexps, and
+       implemented new most used smileys stats.
      + Complain about invalid -cfg options (closes SF tracker #1183072 by
        nandmaster).
    * Cache:

modules/Pisg/Parser/Logfile.pm

@@ -396,15 +396,17 @@ sub _parse_file
                     }
 
                     # Who smiles the most?
+                    my $e = '[8;:=%]'; # eyes
+                    my $n = '[-oc*^]'; # nose
                     # smileys including asian-style (^^ ^_^' ^^; ^_____^ ^o^)
-                    if ($saying =~ /(>?[8;:=%]'?[-o*^][\)pPD\}\]>]|[;:]\)|\^[_o-]*\^[';])/o) {
+                    if ($saying =~ /(>?$e'?$n[\)pPD\}\]>]|[\(\{\[<]$n'?$e<?|[;:]\)|\([;:]|\^[_o-]*\^[';])/o) {
                         $stats->{smiles}{$nick}++;
                         $stats->{smileys}{$1}++;
                         $stats->{smileynicks}{$1} = $nick;
                     }
 
                     # asian frown: ;_;
-                    if ($saying =~ /([8;:=%]'?[-o*^][\(\[\\\/\{|]|:\(|;_+;|T_+T|-[._]+-)/o and
+                    if ($saying =~ /($e'?$n[\(\[\\\/\{|]|[\)\]\\\/\}|]$n'?$e|[;:]\(|\):|;_+;|T_+T|-[._]+-)/o and
                         $saying !~ /\w+:\/\//o) {
                         $stats->{frowns}{$nick}++;
                         $stats->{smileys}{$1}++;