Select Code to Download

# assuming a record starts with a space...
my @records = split '\n ',$data;
...
for (@records) {
  my @values = /$re/;
}

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.