Here's another way to generate an 8 character string, containing characters in the ranges 2-9 and a-z, using the CPAN module String::Random:

#!/usr/bin/perl -w

use strict;
use String::Random;

my $string_random = String::Random->new;

print $string_random->randregex('[a-z2-9]' x 8);
[download]