Select Code to Download

#!/usr/bin/perl -w
use strict;
...
open(NEWFILE, ">$newfile") || die "$!\n";
foreach(@newlines) {print NEWFILE "$_\n";}
close NEWFILE;

"Smith, Robert",94 N. Orange Grove,# 25,West Hollywood,CA,90046,(323)5
+55-1234,931
"Jones, Bob"    111 S. Orange Grove     # 72    Silverlake,CA   90210,
+(323)555-5555,931

"Smith, Robert","94 N. Orange Grove","# 25","West Hollywood, CA","9004
+6","(323)555-1234","931"
"Jones, Bob","111 S. Orange Grove","# 72","Silverlake, CA","90210","(3
+23)555-5555","931"