my @data       = shift;
 my $loop_count = 0;
 while (@data) {
  $data[$loop_count] =~ m{s/^\s*//}xms;#line 212
  $data[$loop_count] =~ m{s/\s*$//}xms;#line 213
  $loop_count++;
 }