if (grep { lc eq lc($author) } @admin_users)
{
     print "$blah";
}
else
{
     print "$uber_blah";
}

##</code><code>##

@admin_users = map { s/\s+//; $_ } @admin_users;