my $such = '|   0001    active         -184    -74                   |';
my @cols_1_4 = (split ' ', $such)[1, 4];
print "@cols_1_4\n";