my $match = m/^(*.?)/gS;