my @liste = (...); # halt deine Zeichenketten
my @array = ();
foreach my $string(@liste){
  my (@zahlen) = $string =~ /(\d+)/g;
  push(@array,@zahlen);
}

print $_,"\n" for(@array); # gibt jetzt alle gefundenen Zahlen aus...