perl DelimMatch