$randomelement =~ s/^\d+\.\s+//;

##</code><code>##

$randomelement =~ s/^ \d+ \. \s+//x;