in reply to Regex Array matching
The code:
print "Found: $_\n" foreach map { $devicesData =~ $_ } @matches;
would seem to print what you "said" you wanted. The solution from poj may be more broadly useful.
Ron
In Section
Seekers of Perl Wisdom