my @step=(1..9);
push (@step, 0);
my $step;
foreach (@step) {
  $step . $_;
}
print ($step x 7);

##</code><code>##

my @step=(1..9);
push (@step, 0);
my @stepCount=(1..7);
foreach (@stepCount) {
  print @step;
}

##</code><code>##

my $what = "fred|barney";

while (<>) {
  chomp;
  if ($_ =~ ($what){3}) {
    print "It's in there.\n";
  }
  else {
    print "Not there.\n";
  }
}

##</code><code>##

my $what = "(fred|barney){3}";

while (<>) {
  chomp;
  if ($_ =~ $what) {
    print "It's in there.\n";
  }
  else {
    print "Not there.\n";
  }
}