Help for this page
$raw_data=<DATA>; while (<DATA>) { foreach ($raw_data) {
while (<DATA>) { my @new_data = split /ms/; # do stuff }