Как пользователю Perl найти все экземпляры строк, соответствующих регулярному выражению?

Как пользователю Perl найти и распечатать все строки, соответствующие регулярному выражению?

Следующее позволяет найти только первое совпадение.

$text="?Adsfsadfgaasdf.
?Bafadfdsaadsfadsf.
xcxvfdgfdg";

if($text =~ m/\\?([^\.]+\.)/) {
    print "$1\n";
}

EDIT1: / g не работает

#!/usr/bin/env perl

$text="?Adsfsadfgaasdf.
?Bafadfdsaadsfadsf.
xcxvfdgfdg";

if($text =~ m/\\?([^\.]+\.)/g) {
    print "$1\n";
}

$ ./test.pl 
?Adsfsadfgaasdf.