#!/usr/bin/env perl -l

use strict;
use warnings;

my $re = qr{
    ^                                                     # start of line
    (\S+)\s+(\S+)\s+(\S+)\s+                              # 3 fields, no spaces
    (.+?)\s+                                              # 1 field, +/- spaces
    (\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+) # 7 fields, no spaces
    \s*                                                   # possible spaces
    ($)                                                   # end of line
}x;

print join ';' => /$re/ while <DATA>;

__DATA__
PID  POLS U(%) POOL_NAME    Seq# Num LDEV# H(%) VCAP(%) TYPE PM
003  POLN   0  Bad name with spaces   13453   2 61443  80   -  OPEN N 
002  POLN  52  DemoSolutions   54068  7 61454  80   -  OPEN N 

##</code><code>##

PID;POLS;U(%);POOL_NAME;Seq#;Num;LDEV#;H(%);VCAP(%);TYPE;PM;
003;POLN;0;Bad name with spaces;13453;2;61443;80;-;OPEN;N;
002;POLN;52;DemoSolutions;54068;7;61454;80;-;OPEN;N;