c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $s = 'junk%%%first1:::sur1:::middle1%%junk%%first2:::sur2:::middle2%%junk%%first3:::sur3:::middle3%%junk';
 ;;
 my @arr = $s =~ /\w+:::\w+:::\w+/g;
 dd \@arr;
"
[
  "first1:::sur1:::middle1",
  "first2:::sur2:::middle2",
  "first3:::sur3:::middle3",
]