while (<DATA>) {
  my @new_data = split /ms/;
  # do stuff
}