use strict;
use warnings;

my $year = @ARGV ? shift : 2006;
my $ops = '{-,+,x,/,}';
my $globpat = '{-,}' . (join $ops, (reverse 1..9));

print $globpat, "\n";
for (glob $globpat) {
  tr/x/*/;
  print "$_ == $year\n" if $year == eval;
}