#!/usr/bin/perl
use strict;
use warnings;

my @results;
my $relevant;

while (<DATA>){
   (undef, undef, undef, $relevant) = split ('","',$_);
   push(@results, $relevant);
}

print join("\n", @results);

__DATA__
"1495107228781574","SomeCompany, Inc.","8335788590132972","kerpow.org","Active","Jan 27 2000 9:02PM","May 1 2004 12:34PM","May 28 2005 2:02AM"
"1495107228781574","SomeCompany, Inc.","1802975834647670","squish.com","Active","Jul 15 2004 1:49PM","May 2 2004 11:05PM","May 19 2005 11:05PM"
"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:48AM"