If it has to be a regex, this works (at least with your example):

use Modern::Perl;

<DATA>;
while (<DATA>) {
    chomp;
    my ( $PID, $POLS, $U, $POOL_NAME, $Seq, $Num, $LDEV, $H, $VCAP, $T
+YPE, $PM )
      = /
       ^
       (\d+)
       \s+
       (.+?)
       \s+
       (\d+)
       \s+
       (.+?)
       \s+
       (\d+)
       \s+
       (\d+)
       \s+
       (\d+)
       \s+
       (\d+)
       \s+
       ([^ ]+)
       \s+
       ([^ ]+)
       \s+
       ([^ ]+)
       $
    /x;
    say join ';',
      ( $PID, $POLS, $U, $POOL_NAME, $Seq, $Num, $LDEV, $H, $VCAP, $TY
+PE, $PM );
}

__DATA__
PID  POLS U(%) POOL_NAME              Seq#  Num LDEV#  H(%) VCAP(%) TY
+PE PM
003  POLN   0  Bad name with spaces   13453   2 61443  80   -       OP
+EN N
002  POLN  52  DemoSolutions   54068  7 61454  80   -  OPEN N
[download]

Output:

003;POLN;0;Bad name with spaces;13453;2;61443;80;-;OPEN;N
002;POLN;52;DemoSolutions;54068;7;61454;80;-;OPEN;N
[download]