#!/usr/bin/perl

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

my $file = io shift;

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

__END__