Select Code to Download

    my $data   = "... whatever ...";
    my $key    = "START";
    my $length =  140;

    my $text   =  substr $data, index ($data, $key) + length ($key), $
+length;