my $delim = '([{<-';