my $allText = read_file($file);

my $call = <<'END';
my @mars_caller =  caller(0);
mars::print::call(\@mars_caller, \@_);
END

$allText =~ s/([\n\s]+sub[\n\s]+.*?{)/\1$call/sg;