#!/usr/bin/perl

open(OLDDAT, "doodle.dat");
open(NEWDAT, ">rosspo.dat");

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