Blah blah

my $example = 'code';
foreach (@foo) {
  foreach (@foo) {
    my $example = 'code';
    my $example = 'code';
    my $example = 'code';
  }
  my $example = 'code';
  my $example = 'code';
  my $example = 'code';
  foreach (@foo) {
    my $example = 'code';
    my $example = 'code';
    my $example = 'code';
  }
}

Blah

Blurb

blah

sub parse {
    my $class = shift;
    my $text  = shift;
    foreach my $foo (blah) {
        foreach my $foo (blah) {
            foreach my $foo (blah) {
                foo;
            }
        }
    }
}