Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
my @parts = $string =~ m/(.{1,$width},)(.{1,$width},)(.{1,$width},)(.*
+)/;

print join "\n", @parts;
  2. or download this
    TE=ASR,EV=R,PPF=G1,
TG=G1,TMT=P1,
RTV=YE,AAT=0,
AT=105,ON=Y,CF1=FGOC