scripts/deploy/strip.pm

use strict;
use warnings;

sub strip {
        my $txt = shift;
        $txt =~ s/^\s+$//gm;
        if ( $txt =~ m/(\n\s+)/ ) {
                $txt =~ s/$1/\n/gs;
        }
        $txt =~ s/^\s+//gs;
        $txt =~ s/\s+$//gs;
        warn "$txt\n\n";
        return $txt;
}

1;
1	dpavlin	22	use strict;
2			use warnings;
3
4			sub strip {
5			my $txt = shift;
6			$txt =~ s/^\s+$//gm;
7			if ( $txt =~ m/(\n\s+)/ ) {
8			$txt =~ s/$1/\n/gs;
9			}
10			$txt =~ s/^\s+//gs;
11			$txt =~ s/\s+$//gs;
12			warn "$txt\n\n";
13			return $txt;
14			}
15
16			1;