use strict;
while(<DATA>)
{
  # Get rid of trailing \n on line.
  chomp;

  # divide the line into two items based on tab
  my ($x, $y) = split("\t");    
  print "X:[$x]  Y: [$y]\n";
}

##OUTPUT:
# X:[0.000000e+000]  Y: [1.502947e+000]
# X:[1.162272e-012]  Y: [1.508957e+001]
# X:[2.324544e-012]  Y: [1.508948e+000]
# X:[0.000000e+000]  Y: [1.502947e+001]
# X:[1.162272e-012]  Y: [1.508941e+001]
# X:[2.324544e-012]  Y: [1.508940e+000]
# X:[0.000000e+000]  Y: [1.503947e+000]
# X:[1.162272e-012]  Y: [1.504947e+000]
# X:[2.324544e-012]  Y: [1.508900e+001]

##NOTE in data the two fields are tab delimited.

__DATA__
0.000000e+000	1.502947e+000
1.162272e-012	1.508957e+001
2.324544e-012	1.508948e+000
0.000000e+000	1.502947e+001
1.162272e-012	1.508941e+001
2.324544e-012	1.508940e+000
0.000000e+000	1.503947e+000
1.162272e-012	1.504947e+000
2.324544e-012	1.508900e+001