(my $dialer = (split)[3]) =~ s/"//g;
  push @dialers, $dialer;