$p_data[3] =~ s/\D//g;
$total += $p_data[3];