#!/usr/bin/perl -p
use strict;
use warnings;
use Data::Dumper;
s/^\s+//;
s/\s+\z//;
$_ .= "\n";