if($a=~ /\b\w{3}\b$/)
{
print "Wort mit 3 Buchstaben am Ende gefunden!\n\n" ;
}
else { print "Nichts gefunden!\n\n"; }