my ($pos, $first ) = ( pos $string, $1 ) if $string =~ m/([\[\{\]\},])/g;
  return unless defined $pos;