my $var1 = 'ABCDEFG';
my $var2 = 'ABCDEFGXXXXXX';

print "gueltig\n" if $var2 =~ /^${var1}X*$/;