data_element::item::value|item::value|item::value

##</code><code>##

date0_element::item::value|item::value|item::value|data1_element::item::value|item::value|item::value

##</code><code>##

#!/usr/bin/perl
$_="monsa::clear::1|red::23|blue::50|monsb::clear::80|red::90|blue::100|";
@instances = m/(\S+::\S+::\S+\|\S+::\S+\|\S+::\S+\b)/g;
foreach $inst (@instances) {
   print "found $inst\n";
}
exit;

##</code><code>##

monsa::clear::1|red::23|blue::50
monsb::clear::80|red::90|blue::100