In this case (grabbing one inner field), you could avoid the fancy modules:

#!/usr/bin/perl
use strict;
use warnings;
 
while (<DATA>) {
   my $domain = (split /","/,$_,5)[3];
   print $domain,"\n";
}
 
__DATA__
"1495107228781574","SomeCompany, Inc.","8335788590132972","kerpow.org"
+,"Active","Jan 27 2000 9:02PM","May 1 2004 12:34PM","May 28 2005 2:02
+AM"
"1495107228781574","SomeCompany, Inc.","1802975834647670","squish.com"
+,"Active","Jul 15 2004 1:49PM","May 2 2004 11:05PM","May 19 2005 11:0
+5PM"
"1495107228781574","SomeCompany, Inc.","4430459098697337","wanka.com",
+"Active","Nov 9 2004 9:29AM","May 3 2004 2:14PM","May 16 2005 2:14PM"
"1495107228781574","SomeCompany, Inc.","2113292909703608","blah.com","
+Active","Jan 16 2003 10:48AM","May 4 2004 12:34PM","May 16 2005 5:48A
+M"
[download]

Note: this one works even if some company names have commas and the others don't.