Help for this page

Select Code to Download


  1. or download this
    $ perl -e '$s="foobaaarbaz"; print join " ", split /ba+r/, $s;'
foo baz
  2. or download this
    $ perl -e '$s="85|mat\@com";$sep=qr/\|/;($key,$email)=split($sep,$s); 
+print "$key\t$email\n";'
85      mat@com
  3. or download this
      DB<1> $s = "\|"

  DB<2> $t = qr/$s/
...

  DB<5> p $u
(?^:\|)