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";
[download]