Help for this page

Select Code to Download

Select or download this

my @src;
{
...
  push @src, substr( $tmp, 0, 7, "" ) while $tmp;
}
# . . . as above . . .