use vars qw{$VERSION};
BEGIN {
  $VERSION = '0.01';
}

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