http://www.perlmonks.org?node_id=1010675


in reply to script not working

Why not doing it like this:

#!/usr/bin/perl

use strict;
use warnings;
use IO::All;
use autodie qw(:all);

my $file = io shift;

print $file->[1] =~ m/(.{5})/;

__END__

[download]

Short, nice, doesn't matter how big the file is...

See IO::All and Tie::File

Regards, Karl

«The Crux of the Biscuit is the Apostrophe»

In Section Seekers of Perl Wisdom