if ( $key =~ /(\w+)/ ) {
   $key = $1;
}

my $cipher2 = Crypt::CBC->new(
	-key    => $key,
	-cipher => 'Twofish'
);

$random_integer = int(rand(100000));
($random_integer) = $random_integer =~ /(\d+)/;
$encrypted_int = $cipher2->encrypt($1);