TEXTO 1:

-¿Algo más?
-Sí. No sea una persona mezquina. De dirección y sentido a su vida y una conexión con los demás. ¿Sabe lo que hago cada día cuando pago el peaje del puente de San Francisco?
-¿?
-Le pago el peaje al de atrás. Voy y le digo al operario: "Cóbreme el mío y el de detrás". Y observo el rostro del conductor del coche de atrás por el retrovisor... Son unas monedas...
-Un catalán apreciaría el gesto.
-Pero las buenas vibraciones de ese rostro agradecido me duran todo el día! Aquí en Barcelona he recogido algún papel del suelo entre las miradas sorprendidas de la gente. Porque sí, porque me apetecía hacer algo bueno. He visto después que alguien me secundaba. Son actos egoístas, créame.
-¿Egoístas?
-Sí, cuestan muy poco y te hacen sentir increíblemente bien.

Este texto no me lo he inventado yo. Lo saqué de una entrevista de estas de La Contra. El entrevistado no me acuerdo quién era.

Todo esto lo pongo aquí porque a mí me gusta hacer cosas de estas. Y no lo hago porque esté obligado, o porque lo diga tal mandamiento o tal... Es que me gusta, soy así. Supongo que es una suerte. Perfectamente podría no ser así.
Tampoco estoy todo el día haciendo favores a la gente o regalando billetes por ahí, ni mucho menos. Aunque no estaría mal jeje, si pudiese bien seguro que lo haría.

TEXTO 2:

"El papel del amor ha sido mal entendido durante mucho tiempo. Amar no es algo que debamos hacer para ser buenos o para que el mundo sea un lugar mejor más allá de cierta abstracta responsabilidad moral, o porque debamos renunciar a nuestro hedonismo. Conectar con la energía se siente como una conmoción, después como euforia, y finalmente como amor. Encontrar energía suficiente para mantener aquel estado amoroso ciertamente favorece al mundo pero, sobretodo y más directamente, nos ayuda a nosotros. Es la cosa más hedonista que podemos hacer."

Extraído de "Las nueve revelaciones" de James Redfield (pág. 155)

my $keywords = "egoísmo amor egoístas hedonismo buena persona ayudar gente solidaridad amar búsqueda placer querer"; my @split_keywords = split(/ /, $keywords); my $split_keyword; foreach $split_keyword (@split_keywords) { print ''.$split_keyword.' | '; }