#!/usr/bin/perl

$_ = ",,,,";
print "Good\n" if /(?:[^,]*,\s*){3}(.*?)\s*,/;