my @lines = split /^/, $records; shift @lines; # remove first line print @lines; # print the rest