package THE_ANGER;

if ($they = <>) {
$misbehave = 'consult them';
$they =~ /(need guidance)/s;
my $opinion = 'they are human';
$in_their = $opinion.", you need to ".$misbehave;
$in_the_end = join ($1, "they will ", " and");
}

print "your message: ".$in_their.": ".times."\n";
print $in_the_end." your love\n";