Shell Programming and Scripting

 
my @str;
...array population here...
my $count = ($str =~ tr/"%"//);

$least = ( sort { my $oa = $a =~ s/(%)/$1/g; my $ob = $b =~ s/(%)/$1/g; $oa <=> $ob } @str )[0];

perl -le'

@a = qw(
  a%b%
  ab%%%a%b
  b%%%ab
  );
  
print join $/, 
  map $_->[1], 
    sort { 
      $a->[0] <=> $b->[0] 
      } map [ tr/%//, $_ ], 
        @a;
  '

% perl -le'

@a = qw(
  a%b%
  ab%%%a%b
  b%%%ab
  );

print join $/,
  map $_->[1],
    sort {
  $a->[0] <=> $b->[0]
  } map [ tr/%//, $_ ],
    @a;
  '  
a%b%
b%%%ab
ab%%%a%b

$
$
$ perl -le '@str = qw( %%abc %ab%c% %a%b%c% ab%c ab%%%%%c ab%%c );
            for (@str) {$x=$_; $count=s/%//g; if (!defined $min or $count<$min){$min=$count; $elem=$x}}
            print "\nElement with the least number of % character => ",$elem'
 
Element with the least number of % character => ab%c
$
$

perl -le'
  @str = qw( 
  ab% %%abc %ab%c% %a%b%c% ab%c ab%%%%%c ab%%c 
    );
  
  do {
    $cnt = tr/%//; push @{$cnt{$cnt}}, $_;
    $min = $cnt unless defined $min and $cnt > $min;
      }
    for @str;  
  print "Element(s) with the least number of % character => ", 
    join ", ", @{$cnt{$min}};
  '

% perl -le'
  @str = qw(
  ab% %%abc %ab%c% %a%b%c% ab%c ab%%%%%c ab%%c
    );

  do {
    $cnt = tr/%//; push @{$cnt{$cnt}}, $_;
    $min = $cnt unless defined $min and $cnt > $min;
      }
    for @str;
  print "Element(s) with the least number of % character => ", join ", ", @{$cnt{$min}};
  '
Element(s) with the least number of % character => ab%, ab%c