Little Sue went
out to play, and
found herself a log.
The log was
heavy.

$ perl -00pe 's/\n(?=[a-z])/ /g' file
Little Sue went out to play, and found herself a log.
The log was heavy.

#!/usr/bin/perl -w
use strict;
use Number::Bytes::Human qw(format_bytes);
use v5.10;
use Math::Round;
my $max_mem=0;
my %MAX;
my $name=$ARGV[0];
## If we have given a process name to monitor
while (1){
    my @pids;
    if ($name=~/^\d+$/) {
	$pids[0]=$name
    }
    else {
	@pids=split(/\n/,`pgrep $name`);
    }
    my $running=$#pids;
    exit(0) unless $pids[0];
    foreach my $pid (@pids) {
	my $is_running=`ps aux | grep -v grep | grep -wc $pid `;
	chomp($is_running);
	unless ($is_running){

#!/bin/bash

mem=0;
## If we have given a process name to monitor
while [ 1 ]; do
    pid=`pgrep $1`
    size=$(ps  -o size  -p "$pid" --no-headers);
    bytes=$((1024*1024*1024))
    gigs=$(($size/$bytes))
    echo "$size $bytes $gigs"
    exit
    if [[ $aa > 0 ]]
    then
    size=`top -cbd .10 -n 1 | grep -w $1 | grep -v grep | gawk '(\$NF=="$1"){print \$7}' | perl -ne 's/(\d+)\w+/\$1/; print;'`
	echo "YES $size top -cbd .10 -n 1 | grep -w $1 | grep -v grep | gawk '(\$NF=="$1"){print \$7}' | perl -ne 's/(\d+)\w+/\$1/; print;'"

#!/usr/bin/env bash
max=20;
while :
do
    mem=$(ps ax -o pid=,%mem= | sort -rnk2 | head -n1)
    cpu=$(ps ax -o pid=,%cpu= | sort -rnk2 | head -n1)

    perl -le 'exit(1) if $ARGV[0] > $ARGV[1]' ${cpu## [0-9]* } $max ||
      echo "Max cpu exceeded. Cpu: $cpu" | mail faheem@mitha.com && exit;
    perl -le 'exit(1) if $ARGV[0] > $ARGV[1]' ${mem## [0-9]* } $max ||
      echo "Max memory exceeded: $mem" | mail faheem@mitha.com && exit;
      sleep 1;
done