সম্পাদনা
my $string = "হ্যালো বিশ্ব"; my $pattern = qr/[A-Z]/; while ($string =~ /$pattern/g) { print "$&\n"; }
পূর্বরূপ
