Help for this page

Select Code to Download


  1. or download this
      DB<120> $str='xxx@@xx\@xx@abc\@xxx@efg@\xxx'
 => "xxx\@\@xx\\\@xx\@abc\\\@xxx\@efg\@\\xxx"
...

  DB<122> grep { defined } $str =~ m/ (?: [\\\@]{2} | ( \@\w+ ) | . ) 
+/xg
  => ("\@abc", "\@efg")
  2. or download this
      DB<135> grep {defined} $str =~ m/ (?: [\\\@]{2}+ | ( [\\\@]\w+ ) | [
+^\\\@]+ ) /xg 
 => ("\@abc", "\@efg")