my $s='4sheet1rev11';
while($s=~/([\d]+|[^\d]+)/gcsi){
  print "$1\n";
}