FAILURE: NOCALLORIG 02/08/07 14:22:18 #890071  #### my $match = m/^(*.?)/gS;