Shouldn't that be:

  $searchTexts[$i] =~ s/^\s+//;
  $searchTexts[$i] =~ s/\s+$//;
  print $searchTexts[$i]."\n";
[download]

Instead of:

  @searchTexts[$i] =~ s/^\s+//;
  @searchTexts[$i] =~ s/\s+$//;
  print @searchTexts[$i]."\n";
[download]

?