$string1 = "Ich bin string eins";
$string2 = "und ich bin der zweite";

print ($string2 =~/($_)/i) ? $1 : '' for (split(/\b/,$string1));