Help for this page

Select Code to Download


  1. or download this
    sub dequote {
       local $_ = (@_ ? $_[0] : $_);
    ...
               @parts;
    
    print("=~ m/^(?:$list)\$/");