package mp3Plugin;

use MP3::Tag;
use File::Basename;

use strict;
use warnings;
...
..
# @Description: Blablabla
# @Version 0.8
sub DO_SOMETHING_WHATEVER {
	my $self = shift;
	...
}

# @Description: Blablabla
# @Requires mp3Plugin.DO_SOMETHING_WHATEVER Version 0.8
# @Version 0.8
sub DO_SOMETHING_ELSE_WHATEVER {
	my $self = shift;
	...
}

return "mp3Plugin";
__END__

##</code><code>##

while ($text =~ /(#+(?:.|\s)+?)sub +([\w\s]+) +\{((.|\s)+)/) { ... } # :)