Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...

my $string="012345678901234567890"
print substr($string,0,16);
  2. or download this
    #!/usr/bin/perl
use strict;
...
    print "\n" . substr($_,0,160);    #as described above, except prin
+t first 160 characters only
}
close FILE    #close filehandle