# !/usr/bin/perl -w use strict; while (my $file= ){ chomp ($file); if( $file =~ m/(.*)\s:\s(\d+)/){ my $freq = $2/478410; print "$1 : $freq\n"; } }