#!/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;