Select Code to Download

117nolasvegasnv@fitness19.com;"117nolasvegasnv"
15tofit@comcast.net;"Patrea"
...
199pittsburghpa@fitness19.com;"199pittsburghpa"
1advocare@msn.com;"1advocare"
1mbabic@gmail.com;"Milos"

#!/usr/bin/perl -w
open(IN,"<file") ;
...
if(/("/w+/")/){
print "$1\n";
}}