bin/print-directory_assist

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 my $acs = `cut -c1-3 ../etc/areacodes.txt`;
   6
   7 my $plus = '';
   8 foreach my $npa ( split(/\n/, $acs ) ) {
   9   warn $npa;
  10   $plus .= $npa. '5551212,';
  11 }
  12 print "$plus\n";