sub data_verify {
 my $data = shift;
 $data =~ s/^\s*//;
 $data =~ s/\s*$//;
 return $data;
}