in reply to regular expression from input file

my @out=/<presence from='([^']*)'/g;

[download]

In Section Seekers of Perl Wisdom