($var1) = (split(/\s+/, $strip))[0];
($var2) = (split(/\s+/, $strip))[1];
($var3) = (split(/\s+/, $strip))[2];
$line[0] = $var1;
$line[1] = $var2;
$line[2] = $var3;