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