#!/usr/local/bin/perl  

# Returns 3 column file from a NED SED search
# with homogenized units.
# FREQ(Hz) FLUX(Jy) STD(JY)

while(<>){

if($_=~m/^\d{1,3}\s<#No.+(\d\.\d{2}E.\d{2}).+(\d\.\d{2}E.\d{2}).+(\d\.\d{2}E.\d{2})/)
{print("$1 $2 $3 \n")};

}
