Select Code to Download

$ perl -Mstrict -Mwarnings -E '
    my $re1 = qr{PV1\|1\|O\|(?:[^|]*\|){3}\|};
...
------- Capturing -------
Match in $y
F5|