SoloCodigo

Hey SoloCodiger@s, les tengo una pregunta que quisas los ponga a romper coco  

Tengo un testo plano de X lineas, palabras....
De este, quiero sacar una palabra, por ejemplo :

Tengo esto :

Hola a : su -
de : su - * 2

y quiero sacar de la linea 1 y 2 lo que esta al lado de los dos puntos ( : )
Como ago esto?  

 Je, je, je! no pudieron.
Bueno, bueno, les doy el codigillo.

sub sdlp {
  my ($testo, $num) = @_;;
  my @linea   = split /\n/, $testo;
  my $numas = $num + 1;
  if( grep {$linea[$num] eq /\b([^a-zA-Z0-9\.\-\+\~])[^a-zA-Z0-9\.\-\+\~])\b/i}$head){print "$linea[$num]\n";}
  else {sdlp($testo, $numas)};
}
sdlp("$mi_archivo", 0);

Bueno, es algo parecido

Nota en la    del codigo en la linea 5 es en realidad : ( (sin espacio)