head -c 200 /dev/urandom | perl -e '$i=0;foreach (split //, <>) {s/[\s\W]//g;print}#$i++,$_,$/}' | head -c 8; echo

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

# a basic script to generate some (pseudo)random numbers and
# print them out.

# our parameters:
my $count  = 1000;  # how many numbers do we want
my $lbound = 666;     # lower bound (inclusive) of our range
my $ubound = 1337;  # upper bound (inclusive) of our range

# what follows is shorthand: We execute what's between the
# {braces} until what's in the (parentheses) evaluates to 
# false. In the parens, we post-decrement $count, which 
# returns the value of $count before the incrementing. This
# way, the first time through $count becomes 999 and the
# expression evaluates to 1000. The second time $count
# becomes 998 and the expression evaluates to 999, and so
# on. We also have the pre-decrement: (++$count). This is
# identical to the post-decrement, except that the value
# returned is $count after being decremented.
while ($count--) {
   # The next line generates our random number. The rand()
   # function generates a real number greater than or equal
   # to zero, and less than the number you pass it. The
   # int() function truncates fractional numbers and returns
   # the integer part. So we give rand() a range that will
   # be the right size -- in this case 0 to 671 -- and then
   # add 666 to it to get a range from 666 to 1337.
   my $rannum = int rand($ubound - $lbound + 1) + $lbound;
   # Now do whatever you like with the number.
   print "$rannum is my favourite number! \n";
}