Help for this page

Select Code to Download


  1. or download this
    @{$pets} = $1 if $pet_list =~ /$some_variable\:(.*?)(;|\z)/;

# or not allow ';' in values:

@{$pets} = $1 if $pet_list =~ /$some_variable\:([^;]*)(;|\z)/;
  2. or download this
    @{$pets} = $1 if $pet_list =~ /(?:\A|;)\Q$some_variable\E\:([^;]*)(;|\
+z)/;