Select Code to Download

...
    if( $line =~ /(\[\d+\.\d+\sGB\s\/\s\d+\.\d+\sGB\])/i ) {
        my $pvname = $1;
        print $pvname;
    };

for my $line (`pvscan`) {
    ...
};