if ( grep { /($author)/i } @admin_users ) { 
    print "$blah\n";
} else {
    print "$uber_blah\n";
}