@li=split (\d\), $l);#  - escaping the )