#!/usr/bin/perl -w

$len =  11 + int(rand(10));
$r  .=  chr(48 + rand(74)) for (1..$len);
$r   =~ s/\W//g;
print "$r\n";