print "Nur Wortzeichen" if $string =~ /^\w$/;