$ perl -E'(/(TFId=(?:,?(?:\d+|nil))*)/ && say "yes") || say "no" while <> '
TFId=1
yes
TFid=,
no
TFId=1,
yes
TFId=1,,,2
yes
TFId=nilnilnil
yes