use strict;
use warnings;

use 5.010;

my @dataLines = (
   q{>cds:AEA30293 A/Netherlands/2223b/2009 2009/11/18 HA},
   q{>cds:ADD23250 A/District of Columbia/INS17/2009 2009/10/26 HA},
   q{>cds:ADX98640 A/San Diego/INS13/2009 2009/10/19 HA},
   q{>cds:ADD97035 A/Wisconsin/629-D00036/2009 2009/09/15 HA},
   );

say q{=} x 60;
foreach my $dataLine ( @dataLines )
{
    say $dataLine;
    my @elems;
    ( $elems[ 0 ], my $remainder ) = split m{\s+}, $dataLine, 2;
    @elems[ 3, 2, 1 ] =
       map { scalar reverse }
       split m{\s+}, reverse( $remainder ), 3;
    say for @elems;
    say q{=} x 60;
}

##</code><code>##

============================================================
>cds:AEA30293 A/Netherlands/2223b/2009 2009/11/18 HA
>cds:AEA30293
A/Netherlands/2223b/2009
2009/11/18
HA
============================================================
>cds:ADD23250 A/District of Columbia/INS17/2009 2009/10/26 HA
>cds:ADD23250
A/District of Columbia/INS17/2009
2009/10/26
HA
============================================================
>cds:ADX98640 A/San Diego/INS13/2009 2009/10/19 HA
>cds:ADX98640
A/San Diego/INS13/2009
2009/10/19
HA
============================================================
>cds:ADD97035 A/Wisconsin/629-D00036/2009 2009/09/15 HA
>cds:ADD97035
A/Wisconsin/629-D00036/2009
2009/09/15
HA
============================================================