in reply to Re^2: Write code using less lines
in thread Write code using less lines

Or possibly: 

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

[download]

In Section Seekers of Perl Wisdom