Select Code to Download

my @items = split /\s+/, $buf;
if (scalar(@items) == 13) {
...
else {
    # process (i) or (iii)
}

use strict;
use warnings;
...
SS  21   PL 2#3  PV  51.3 CL #110 +0 RL 126' SA 106 DS 93
SS  21   PL 2#3  PVa51.3 CT^ 110 +0 RL126, SA 106 DS 93
SS  21   PL 2#3  PV   51.3 CL #110 +0 RL 126' SA 106 DS 93

SS 21 PL 2#3 PV 51.3 CL #110 +0 RL 126' SA 106 DS 93
SS 21 PL 2#3 PV a51.3 CT^ 110 +0 RL 126, SA 106 DS 93
SS 21 PL 2#3 PV 51.3 CL #110 +0 RL 126' SA 106 DS 93