Help for this page

Select Code to Download


  1. or download this
    my @pieces = m/\G(<[^>]*>|#[^#]*#|[^#<]+)/g;
  2. or download this
    pos = 0;
while (m/\G(<[^>]*>|#[^#]*#|[^#<]+)/gc) {
  push @pieces, $1;
}
die unless pos >= length;