Help for this page

Select Code to Download


  1. or download this
    perl -e 'my $x = "abcdefg" =~ /(cd)/; print "$x\n";'
    
  2. or download this
    perl -e 'my ($x) = "abcdefg" =~ /(cd)/; print "$x\n";'
    
  3. or download this
    my($this, $that) = $string =~ /abc(def).+?(pq)$/;