#!perl -l

sub blah {
  my $x if $foo;
  print $x++;
}

for (0..3) { blah() }

$foo = 1;

for (0..3) { blah() }
__END__
0
1
2
3

4
0
0
0

##</code><code>##

my ($var1,$var2);
($var1,$var2) = ($1,$2) if ($value1=~/something/ && $value2=~/(what)(ever)/);