Help for this page

Select Code to Download

Select or download this

while (@data) {
  $data[$loop_count] =~ m{s/^\s*//}xms;
  $data[$loop_count] =~ m{s/\s*$//}xms;
  $loop_count++;
 }

Select or download this

for (@data) {    # remove leading/trailing whitespace
    s/^\s*//;
    s/\s*$//;
}