my $inp="a8zpaihfwe8fhfpwe8zwe3isnfksi392913";

if($inp=~m/^([0-9a-z]{30})(\d+)$/)
{
print "Teil 1: $1, Teil 2: $2\n";
}else{
print "Der String schaut nicht so aus wie gefordert\n";
}