print $out $line1, ',', (split ',', $line2)[-1];