সম্পাদনা
my $string = "a1b2c3"; my $pattern = qr/[2-5]/; while ($string =~ /$pattern/g) { print "$&\n"; }
পূর্বরূপ
