পার্ল m রেজেক্স

my $string  = "প্রোগ্রামিং শিখুন
প্রোগ্রামিং টিউটোরিয়াল
ক্যারিয়ার গড়তে প্রোগ্রামিং";

my $pattern = qr/^প্রোগ্রামিং/m;

while ($string =~ /$pattern/g) {
  print "$&\n";
}