Shell Programming and Scripting

$ echo "95952325555" | awk -F "5" '{print NF-1}'

6

# echo "95952325555" | awk -F"[^5]" '{print length($NF)}'
4
# echo "95952355555" | awk -F"[^5]" '{print length($NF)}'
5
# echo "959523554555" | awk -F"[^5]" '{print length($NF)}'
3

my $str="124334456777";
my @arr=split("",$str);
my $n=pop @arr;
my $cnt=1;
while($#arr >= 0){
if ((pop @arr) eq  $n ){
	$cnt++;
}
else{
 print $cnt;
 exit;
}
}

% perl -le'print length((split/[^5]/,shift)[-1])' 95952325555  
4
% perl -le'print length((split/[^5]/,shift)[-1])' 959523255555
5
% perl -le'print length((split/[^5]/,shift)[-1])' 9595232555  
3