while($huge_multi_line_string =~ /ccParty<(\S+)> Port<(\S+)> DTMF<(\S+)>/g){
  # do something with $1, $2, and $3
}