Help for this page

Select Code to Download


  1. or download this
       
$line =~ /^\s*names\s*=\s*{\s*([^}]+)/;
(my $names = $1) =~ y/" //d;
my @tags = split /,/ => $names;
  2. or download this
    (my $names = $1) =~ y/" //d;