while (/(foo\d+)/g) {
  push @ext, $1;
}