#!/usr/local/bin/perl -w

use strict;

$_ = 'perlmonks.org';

for my $re (qw/monks minks/) {
  /(perl)/;

  print "$1\n";

  {
    # new block for regex
    /($re)/;
    print "$1\n";
  }
}
__END__
perl
monks
perl
perl