Select Code to Download

    my $hyphens = 0;
    $hyphens++ while $str =~ /-/g;

    my $hyphens = length $1 if $str =~ m{\A(-*)};

$ perl -Mstrict -Mwarnings -le '
> my @strings = qw{--aacgtACG ctgGTTAtga};
...
--aacgtACG - 2
ctgGTTAtga - 0
$