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