Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
push @records, substr $text, $prevPosn;

say qq{>$_<} for @records;
  2. or download this
    >AAsgdhsdg<
>ABudhwu<
>ACedAGuwyd<
>ADwieuhwiud<
>AEudwdfuw<