$/="\r";
my @splitted=();
while(<FH>){
 local $/="\003";
 push @splitted,split(/$\//,$_); 
}