Select Code to Download

#!/usr/bin/perl

...
  print "Found a job $jobnumber in $location.\n"; # do something
}

$buf[$i+1] =~ s/^\s*<location>\s*(.?)\s*<location>\s*$/$1/;
  # \s?(.*)\s works though..