my @contentlist;
if ($filefh){
while (my $content=<$filefh>){
chomp $content;
$content = s/[\r\n]*$//g;
push @contentlist, $content if $content;
}
-