1 2 3 4
my ($proxy, $status) = split(/|/, $line); print "$proxy\n"; print "$status\n";
QuoteE:\perl>perl mechanize.pl 2 2