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

##</code><code>##

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