#!/usr/bin/perl -w
use strict;
use Data::Dumper;
# open a filehandle
# file being read from
open(my $in, "/Users/myDir/Desktop/hassan2.txt");
open(my $out, ">/Users/myDir/Desktop/hassan_out.txt"); 

while(<$in>){
	my @fields = split /,/;
	my $field1 = $fields[0];
	my $field2  = $fields[1];
	print  $out "$field1\t$field2\n";
}
close($in);
close($out);

##</code><code>##

"-0.500, 4.502e-6"
"-0.499, 4.474e-6"
"-0.498, 4.458e-6"
"-0.497, 4.445e-6"
"-0.496, 4.433e-6"
"-0.495, 4.421e-6"


##</code><code>##

"-0.500	 4.502e-6"
"-0.499


##</code><code>##

-0.499 4.474e-6
-0.498 4.458e-6
-0.497 4.445e-6
-0.496 4.433e-6
-0.495 4.421e-6