#!/usr/bin/perl

open(IN,"<$ARGV[0]") or die "file $ARGV[0] for reading  can not be opened.";
#open(OUT,">$ARGV[1]") or die "file $ARGV[1] for writing can not be opened.";

while(<IN>){
    chomp $_;                              # 改行文字の削除
	s/^\s+//;                          # 先頭の空白を削除
    if(/^\d/){
	@data = split(/\s+/);
	printf "%6.2f,",$data[1];             # 周波数のみ書き出し
    }
}

print OUT "\n";

close IN;
close OUT;
