#!/usr/bin/perl
use Time::HiRes qw( gettimeofday); #so we can get microseconds
print gettimeofday() . "\n";    #the start time
open(my $fd,"<","B.png.txt"); #open the image file 
my $data = join("",<$fd>); #read the entire file into one string
close($fd);
print "file read\n";
print "length of the string is " . length($data) . "\n";
my $started = gettimeofday();
print "$started\n";
$data =~ s/.*,//;               #do the substitution
print "we did the sub\n";
print gettimeofday() - $started . "\n";