Select Code to Download

sub seq{!grep{$_[0]!~/\G.*?$_/g}split//,pop}

sub seq{
  my @x=split"",pop;
  my $s=pop;
...
  }
  $c = ($cy, $c)[ $cy < $c ];
}

sub seq{!grep$_[0]!~/$_/g,pop=~/./g}

sub seq{!grep$_[0]!~/\Q$_/g,pop=~/./gs}