$source_code =~ s/(\$self.*)$/$1

    print "skew: ".\$self->_skew."\\n"
        . "_terminus_trigger: ".\$self->_terminus_trigger."\\n"
        . "_column_wanted: ".\$self->_column_wanted."\\n"
        . "umbrella: \$\$self{'umbrella'}\\n"
        . "text: q[\$text]\\n";\n/ or die "Source patch failed";