Help for this page

Select Code to Download


  1. or download this
    $ perl -e '($s)="aaabbaabbb"=~/(a.*)b/;print "$s\n";'
aaabbaabb
$ perl -e '($s)="aaabbaabbb"=~/(a.*?)b/;print "$s\n";'
aaa
  2. or download this
    my @items = /$rxExtract/g;
  3. or download this
    my $string = <DATA>;
  4. or download this
    my @items = $string =~ /$rxExtract/g;
  5. or download this
    s/\n(?=.)/\t/g for @items;