for (my $i=0; $i<@array; $i++) {
  $array[$i] =~ s/^\s+/;/g;     
  $array[$i] =~ s/\s+$/;/g;                              
}