Help for this page

Select Code to Download

Select or download this

sub visual_length {
    my $s = shift;
...
    }
    return $l;
}