Select Code to Download

my $pet_list = 'dog:boston.terrier;cat:orange.tabby';

@{$pets} = $1 if $pet_list =~ /$some_variable\:(.+);??/;