print "gueltig\n" if $var2 eq $var1 . 'XXX';