Select Code to Download

my @rpmcmd = qw{rpm
  --queryformat=%{N}\t"%{V}"\t"%{R}"\t%7{ARCH}\t%7{SOURCERPM}\t%9{NOSO
+URCE}\n
  -qp };

      while (<$pfrs>) {
        $package_p->split_n_cmp_vers($_);

 perl -e '#!/usr/bin/perl
use strict; use warnings;use P;
...
'
006, <prod|006|2.13|x86_64|rpm>
6, <prod|006|2.13|x86_64|rpm>

  sub rec2rpm_name () {
    my $p    = shift;
...
    $q=~s/-"(\S+)"-"(\S+)"/-$1-$2/;
    $q;
  }