Help for this page

Select Code to Download

Select or download this

while (my @row = split / /, <DATA>) {
    $row[1] *= 1.1E3;
...
1.10000E0 1.00000E0 1.00000E0
2.20000E0 2.00000E0 2.00000E0
3.30000E0 3.00000E0 3.00000E0