while(...){
    chomp;
    if (m{([[:digit:]].+?);.+?$tags[0].+?=.+?((-)?[[:digit:]].+?)$}s) {
        printf "%s,%s\n", $1, $2;
    }
    ....
  }