The code:

print "Found: $_\n"
    foreach map { $devicesData =~ $_ } @matches;
[download]

would seem to print what you "said" you wanted. The solution from poj may be more broadly useful.