正直正規表現わかりにクス
while($s =~ /^(.).*/g)
とか

$a =~ s/^(.)//;
とか
意味わからなす・・
perl
これをＣ＋＋でよろしく。