in reply to Splitting file into separate files based on record lengths and identifiers

You could probably use a regex like /^(\d{4}[$*%].*?)+$/ to split your input into "records" and /(\d{4})(.)(.*)/ to split each record into its fields

Rule One: "Do not act incautiously when confronting a little bald wrinkly smiling man."

In Section Seekers of Perl Wisdom