#!/usr/bin/perl

my $W;
my $D;
my $O;
my $T;
my $G;
my $L;
my $E;
my $C;
my $M;

my $GOOGLE;
my $WWWDOT;
my $DOTCOM;

my $count = 0;
my $base = 10;


for ($W = 1; $W < $base; $W++) {
for ($D = 1; $D < $base; $D++) {
for ($O = 0; $O < $base; $O++) {
for ($T = 0; $T < $base; $T++) {
for ($G = 1; $G < $base; $G++) {
for ($L = 0; $L < $base; $L++) {
for ($E = 0; $E < $base; $E++) {
for ($C = 0; $C < $base; $C++) {
for ($M = 0; $M < $base; $M++) {

#$count++;
#print "$count\n";

$GOOGLE = "$G$O$O$G$L$E";
$WWWDOT = "$W$W$W$D$O$T";
$DOTCOM = "$D$O$T$C$O$M";

if($GOOGLE + $DOTCOM == $WWWDOT) {
  print "$GOOGLE + $DOTCOM == $WWWDOT\n";
  print "W = $W\t";
  print "D = $D\t";
  print "O = $O\t";
  print "T = $T\t";
  print "G = $G\t";
  print "L = $L\t";
  print "E = $E\t";
  print "C = $C\t";
  print "M = $M\n";
}

}
}
}
}
}
}
}
}
}