Select Code to Download

#!/usr/bin/env perl
use Modern::Perl;
...
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

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