regex - 大文字と数字で分割

Question

変数を大文字で分割し、変数を次のように番号付けするにはどうすればよいですか

$Var = "HvacSystem8000Series";

必要な結果は次のとおりです。

$Var = "Hvac System 8000 Series";

コード：

$Var =~ s/^[A-Z]/ /igs;

Answer 1

コメントでの説明:

$Var = "HvacSystem8000Series";
$Var =~ s/(?<=[[:lower:]])   # Low case before,
          (?=[[:upper:]0-9]) # upper case or digit after;
          |                  # OR
          (?<=[0-9])         # digit before,
          (?=[[:upper:]])    # upper case after?
          /\ /xg;            # Replace with a space.

Answer 2

単語と見なされるもののリストを収集し、それらをスペース区切りで結合するのが最も簡単です。

use strict;
use warnings;

my $var = "HvacSystem8000Series";
$var = join ' ', $var =~ /[A-Z]+[a-z]*|\d+/g;

print $var

出力

Hvac System 8000 Series