my @names = map{/,([^,]+)/}(<DATA>);
print "@names";

__DATA__
John,Doe,Pine St,12345
Jane,Doe,Aspen Way,45678
Andy,Smith,Park St,79845