while(<>){
 ~ tr/ //d;
 ~ s/F,.*$//;
 my ($i,$f) = split("\\.");
 printf "%6d.%-6d\n",$i,$f;
}