#!/usr/bin/perl

open(OLDDAT, "loodle.dat");
open(NEWDAT, ">losspo.dat");

$n=0;
while(<OLDDAT>){
   @data1=split(/\s+/);
   $all="Sp(".$data1[1].",".$data1[2].",".$data1[3].",0.1)";
   print NEWDAT ($all, "\n");
   }