gistfile1.pl

sub is_my_reply {
    my $text = shift;
    
    for my $nickname (@nicknames) {
        if ($text =~ s/\@$nickname//) {
            return $text;
        }
    }
    
    return;
}