use strict;
use warnings;
while (<DATA>) {
my( $name, $add, $phone, $num, $friend ) = (split /,/)[0,1,2,3,8];
$num ||= 0;
print $name, $add, $phone, $num, $friend, "\n";
}
__END__
name,address,phone,,friend,1,2,3,4
name,address,phone,8,friend,1,2,3,4