use 5.010;
use strict;
use warnings;

my $Year = "2011";
my $Month = "04";
my $address = "D:/myfolder/".$Year."/".$Month."/data/";

open(SOURCE, $address."TTT.txt") || die "$!";
open(AAA, ">D:/myfolder/".$Year."/".$Month."/AAA/AAA.txt") || die "$!";
open(BBB, ">D:/myfolder/".$Year."/".$Month."/BBB/BBB.txt") || die "$!";
open(CCC, ">D:/myfolder/".$Year."/".$Month."/CCC/CCC.txt") || die "$!";
open(DDD, ">D:/myfolder/".$Year."/".$Month."/DDD/DDD.txt") || die "$!";

my @AAA;
my @BBB;
my @CCC;
my @DDD;
my @contents=<SOURCE>;
close (SOURCE);
my $Header = shift @contents;

foreach(@contents)	{
when (/;AA/)	{push @AAA, $_;}
when (/;BB/)	{push @BBB, $_;}
when (/;CC/)	{push @CCC, $_;}
when(!/;AA/ && !/;BB/ && !/;CC/)			{push @DDD, $_;}
default			{}
}


unshift @AAA, $Header;
unshift @BBB, $Header;
unshift @CCC, $Header;
unshift @DDD, $Header;

print AAA @AAA;
print BBB @BBB;
print CCC @CCC;
print DDD @DDD;

close (AAA);
close (BBB);
close (CCC);
close (DDD);