while($line = <DATA>) {
   if ($line =~ m/PSP-Ri/) {
      $line = <DATA>;
      print "Codec = $1\npktSize = $2\nattrib = $3\n\n" if $line =~ m/Codec\s(\S+).+pktSize\s(\d+)\sattrib\s(\S+)/;
   }
}

__DATA__
125 09082010 093627.953624:1.01.00.27144.Info .CC: *GCID:0x00000013--Ingress PSP-Ri
206 09082010 093627.953812:1.01.00.27145.Info .CC: *GCID:0x00000013--Codec G711 (0x1) pktSize 20 attrib 0x1c00