Help for this page

Select Code to Download


  1. or download this
    $s =~ /A[^A-Z]*B[^A-Z]*C[^A-Z]*D/;
  2. or download this
    # Same thing, but built dynamically.
my $re = join '[^A-Z]*', split //, 'ABCD';
$s =~ /$re/;
  3. or download this
    my $temp = $s;
$temp =~ s/[^A-Z]//g;
$temp =~ /ABCD/;