fix quotations, RT#21103
[freeside.git] / 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";