in reply to regular expression from input file

  /<presence from='([^']*)'/

[download]
Boris

In Section Seekers of Perl Wisdom