পার্ল \s রেজেক্স

my $string  = "প্রোগ্রামিং শিখুন - প্রোগ্রামিং দিয়ে আপনার ক্যারিয়ার গড়ুন";
my $pattern = qr/\s/;

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