C:\temp>perl -wMstrict -E "say scalar (my @a = 'aaa' =~ /./g)"
3

C:\temp>perl -wMstrict -E "say scalar (my @a = 'aaa' ~~ /./g)"
1