সম্পাদনা
my $string = "এওই@#123"; my $pattern = qr/\W/; while ($string =~ /$pattern/g) { print "$&\n"; }
পূর্বরূপ
