A harsh lesson, so your discression is advised.
#!/usr/bin/perl
#
# Isn't this the truth?
#
# Being a slack, not verifying things
no strict;
no warnings;
my $action = 'assume something important';
my $outcome = $action . ' as applied';
# And at the worst possible time
# You learn what
$outcome =~ s/^((.{3})(.)(.{2})).+/\u$1 made an/;
# the $outcome of
$outcome =~ s/^((.{3})(.)(.{2}).+)/$1 \U$2\E out of/;
# your $action
$outcome =~ s/^((.{3})(.)(.{2}).+)/$1 \U$3\E and \U$4\E/;
# is...
print $outcome, "\n";