$ perl -E '
my @users = (
{ audience => "Management" },
{ audience => "Employee" },
{ audience => "Guest" },
);
generate_report($_) for @users;
sub generate_report {
my ($user) = @_;
say main_template()
=~ s/__AUDIENCE__/$user->{audience}/r
=~ s/__MNGT_REP__/mngt_rep($user)/er
=~ s/__EMP_REP__/emp_rep($user)/er
=~ s/__GUEST_REP__/guest_rep($user)/er;
}
# Theredocs (out of the way)
sub main_template {
<