Perlからパターンを抽出する

パターンを抽出できる正規表現を1つだけ持つことはできますか？」mango - 1. 何..「この3つの条件のいずれか（例：$ dummy）に適用されます。このパターン以降のすべての項目は引き続き印刷されます。最後にカンマを使用すると、CASE-2は何も印刷しません。

CASE-1: my $dummy = "Apple-1.fruit,Banana,Peach,Mango-1.Fruit";
OR
CASE-2: my $dummy = "Mango-1.Fruitssss";
OR
CASE-3: my $dummy = "Apple-1.fruit,Mango-1.Fruits,Orange-1.Fruit,Papaya";

$dummy =~ /(Mango-1.*),/i;
$dummy = $1;
chomp($dummy);

print "$dummy";