Note that you can use the standard while (<>) { ... } idiom here:

{
  local($/) = \$record_length;
  my $first_record = <recordline>;
  $/ = \(512*1024);
  while (<recordfile>) {
    print newrecordfile;
  }
}
[download]

Alternatively, you can seek() over the first record instead of reading it.