sub data_verify {
 my @data = shift;
 my $loop_count = 0;
 while (@data) {
  $data[$loop_count] =~ s/^\s*//;
  $data[$loop_count] =~ s/\s*$//;
  $loop_count++;
 }
 return @data;
}

##</code><code>##

sub data_verify {
 my @data = shift;
 my $loop_count = 0;
 while (@data) {
  $data[$loop_count] =~ s/^\s*//;
  $data[$loop_count] =~ s/\s*$//;
  $loop_count++;
 }
 return @data;
}

##</code><code>##

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

##</code><code>##

sub data_verify {
 my @data = @_;
 for (@data) {
   s/^\s*//;
   s/\s*$//;
 }
 return @data;
}