- my ($self, $irc, $rfullname, $rchannels, $rmessage) = @_;
- my $nick = parse_user $$rfullname;
- my $mynick = $irc->nick_name;
- my @hello = @{$self->{greetings}};
-
- my $match = first { $$rmessage =~ /^\s*(?:$mynick(?:)[:,])?\s*$_\s*$/i } @hello;
- $irc->yield(privmsg => $$rchannels->[0] => $hello[int rand $#hello].", $nick") if $match;
- PCI_EAT_NONE
+ my ($self, $irc, $rfullname, $rchannels, $rmessage) = @_;
+ my $nick = parse_user $$rfullname;
+ my $mynick = $irc->nick_name;
+ my @hello = @{$self->{greetings}};
+
+ my $match = first { $$rmessage =~ /^\s*(?:$mynick(?:)[:,])?\s*$_\s*[.!]?\s*$/i } @hello;
+ $irc->yield(privmsg => $$rchannels->[0] => $hello[int rand $#hello].", $nick") if $match;
+ PCI_EAT_NONE