use 5.024;
use strict; 
use warnings;
use utf8;

my $str = "👽 👽 42";
my @c = $str =~ m/\p{Emoji}/g;

say "Länge: ", length($str), "\n", "Anzahl Emoji: ", scalar @c;