in reply to print out

if ($msg =~ /gu\s*1(?!\d)/i) {
    $vote = 'gu1';
    $found = 1;
}

[download]
Perl --((8:>*

In Section Seekers of Perl Wisdom