while () { next unless /^Job (name|server): (.*)/; $server = $2, next if $1 eq 'server'; print "$2 is on $server; }