use File::Slurp;
use strict;

my $file = 'filename';
my @file = read_file($file);

for( @file ){

#------edit file data here------#

}

write_file(@file)


$_->{$.};s:.?(.)..(.):print(($1..$2)[9,0,15,7]):e