Select Code to Download

$ cat replica
my @dialers;
...
pu_v_dialer
rd_v_dialer
v_dialer_drcalvin

  push @dialers, $1
    if /replica\s+"([^"]+)/;

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