$Just = $0; open(JAPH, $Just); @another = split(/\s/, <JAPH>); $Perl = ""; $hacker =",";
$Perl =join(" ", (substr($another[0],1)),(substr($another[5],1)),(substr($another[9],1)),(substr($another[12],1))); 
close(JAPH); print ($Perl . $hacker);