Select Code to Download

my @MessageLines = ( 'Message Line 1', 'Message Line 2', 
    'Message Line 3',
...
    my $CursorCol = length $1;
    print "\$CursorCol\[$CursorCol\]\n";
}

my $CursorCol = grep { /\S/ .. undef }
                reverse
                split //, $MessageLines[-1];