Select Code to Download

while (length $source) {
  # make only one split (creating 2 parts)
  (my($rec),$source) = split /;/, $source, 2;
  # ...
}

while (my ($rec) = $source =~ /\G([^;]*)(?:;|$)/g) {
  # ...
}

use constant RE_MAGIC => bless [], 'RE_MAGIC';
use constant C_STYLE => bless [], 'C_STYLE';
...
  # ...
  $rec = strtok();
}