Perl에서 패턴 추출

패턴을 추출할 수 있는 정규식을 하나만 가질 수 있습니까?"망고 - 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";