use strict; 
use warnings; 
print "\n Running script for Jiggs \n"; 
my $infile=<foot.txt>;  
 
open(my $in,'<', "$infile") or die $!; 
open(my $out, '>' ,'foot1.txt') or die $!; 
 
my $line = <$in>; 

chomp($line);

$line =~ s/ /,/g; 
print $out "$line"; 
$line =<$in>;  
print $out "$line"; 


while($line =<$in>)

{
chomp($line);
$line =~ s/ /,/g; 
print $out "$line"; 
}

close ($in); 
close ($out); 
 
print "\n Done!\n";