#!/usr/bin/perl
use strict;

# [...]

my $OP = gib_mir_den_seiten_code();

&contentparser;

# [...]

print $OP;

sub contentparser {
   if ($OP =~ m/#!bezeichner1\(/) { $OP = UnserModul->parse_bezeichner1($OP); }
   if ($OP =~ m/#!bezeichner2\(/) { $OP = UnserModul->parse_bezeichner2($OP); }
   # [...]
}