#!/usr/bin/perl
use strict; # https://perlmonks.org/?node_id=11143808
use warnings;
printf "%-13s%15.6f%15.6f %s\n" x 2, split, '', split ' ', <DATA>
while <DATA>;
__DATA__
MM_STD_gate -61.771653 -45.472441 mils
-1569.000000 -1155.000000 microns
RFN_a -91.102362 68.307087 mils
-2314.000000 1735.000000 microns
RFN_b -62.165354 68.307087 mils
-1579.000000 1735.000000 microns
RFN_c -51.417322 68.307087 mils
-1306.000000 1735.000000
+ microns
Outputs:
MM_STD_gate -61.771653 -45.472441 mils
-1569.000000 -1155.000000 microns
RFN_a -91.102362 68.307087 mils
-2314.000000 1735.000000 microns
RFN_b -62.165354 68.307087 mils
-1579.000000 1735.000000 microns
RFN_c -51.417322 68.307087 mils
-1306.000000 1735.000000 microns