সম্পাদনা
my $string = "পার্লপাইথন"; my $pattern = qr/\Bপাইথন/; while ($string =~ /$pattern/g) { print "$&\n"; }
পূর্বরূপ
