#何回も正規表現を使うと
#$1,$2,$3に前回のマッチパターンが入っているからなのかうまく行かないことがあります

$s='921010';
my ($year,$month,$day)=($s=~m/^(\d+)(\d\d)(\d\d)$/);
print "$year,$month,$day\n";

$s2='hogemogesage';

($hoge,$moge,$sage) =($s2= ~m/(hoge)(moge)(sage)/);
print "$hoge,$moge,$sage";

->
92,10,10
4294967295,,Hit any key to close this window...
これを避ける簡単な方法ってないですか？