Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    
    ...
    my @lines = <$fh>;
    my $chars = substr($lines[7], 0, 5);
    print "Five first characters are: <$chars>\n";