( my $var = `unix_tool file_name` ) =~ s/(.+?)\n{2,}/------------------------------------------\n$1\n/sg;

print $var;