p6.p6

=begin ships :formatted<S>

FREE TRADER      A1 200  S 1 1  22  10  --0 1 1 82   8  0  8  0 0 0 0 0 42
FAR TRADER       A2 200  S 1 2  42  11  --0 1 1 65   6  0  4  0 0 0 0 0 52
CRUISER          CM 800  U 3 3  288 13  --1 5 5 25   0  0  8  4 4 1 0 0 323
CORVETTE         EB 500  A 5 3  192 16  FL1 5 5 40   0  0  5  3 3 1 1 0 300
FREIGHTER        FL 1000 S 1 3  316 12  --0 1 1 410 12  0 10  2 0 0 0 0 230
PROSPECTOR       J1 100  S 1 1  12  9   --0 1 1 20   0  3  0  0 0 0 0 0 57
SAFARI SHIP      KA 200  L 2 2  36  15  WS0 3 3 20   7  0  0  0 0 0 0 0 95
LAB SHIP         L2 400  C 1 2  74  16  --1 0 0 50  20  0  0  0 0 0 0 2 239
LINER            MK 600  S 1 3  192 12  --0 0 0 120  8 13 20  0 0 0 0 0 138
CORSAIR          PN 400  A 4 2  90  13  F-0 2 2 72   0  0 12  2 3 2 0 0 158
MERCHANT CRUISER RC 1800 B 4 3  612 13  --0 1 1 100  4  0  6  6 4 1 0 0 640
MERCHANT         RK 400  A 1 1  44  9   W-0 1 1 200  8  0  9  0 0 0 0 0 82
LONG LINER       RT 1000 U 1 4  410 15  --0 0 0 130 36  0  7  1 1 1 0 0 254
SCOUT            SC 100  S 2 2  22  11  --0 2 2 4    0  3  0  2 0 0 0 0 52
SCOUT SP         S2 100  L 2 2  18  15  -S1 2 2 4    0  3  0  1 1 1 0 2 62
PACKET           UF 300  A 3 3  96  12  -L0 1 1 5   12  0  5  2 3 0 0 0 107
BARGE            W1 300  C 1 1  33  9   --0 0 0 100 20  0 20  1 1 1 0 0 62
EXPRESS BOAT     XC 100  B 1 5  51  15  -L1 0 0 5    0  0  6  0 0 0 0 0 48
YACHT            Y2 500  U 4 2  114 15  --1 4 4 45  14  0  0  0 0 0 0 0 275
ANNIC NOVA       Z1 600  C 1 2  132 16  --0 0 0 50   0  0  0  0 0 0 0 0 150

=end ships

for @$=pod
{
   if .name eq 'ships'
   {
      #say .contents.lines
      #my @lines = .contents.split("\n");
      dd .contents;
	  #say @lines.join( "\n" )
   }
}