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