Re^3: Write code using less lines

[jwkrahn]

Or possibly:

my $len_seq = $str =~ tr/-//c;