# Prototyped ($), just like length. Please do not bitch about that.

sub byte_length ($) {
    my ($copy) = @_;
    my $counter;
    $counter++ while $copy =~ s/.//s;
    return $counter;
}

sub byte_length ($) {
    return scalar split //, $_[0];
}