http://www.perlmonks.org?node_id=257297


in reply to Placing text onto multiple lines

I'm going to assume that every input line is comprised of a name and data and then 1 or more <job>s. 

while(<INPUT>){
chomp;
($name,@jobs)=split /<job>/;
for $job (@jobs)
  {
    print OUTPUT "$name <job>$job\n";
  }
}

[download]

Good luck

In Section Seekers of Perl Wisdom