#!/usr/bin/env perl
#
use strict;
use warnings;

sub trim{
  my $string = $_;
  $string =~ s/^\s*(.*)\s*$/$1/;
  return $string;
}

sub ltrim{
  my $string = $_;
  $string =~ s/^\s*//;
  return $string;
}

sub rtrim{
  my $string = $_;
  $string =~ s/\s*$//;
  return $string;
}


my @strings = ("\n\thello\n\r", "hello2\n", "\thello3 spacebar","hello no space");

print "## TRIM ##\n";
foreach (@strings){
  print "**".trim($_)."**\n";
}

print "## LTRIM ##\n";
foreach (@strings){
  print "**".ltrim($_)."**\n";
}

print "## RTRIM ##\n";
foreach (@strings){
  print "**".rtrim($_)."**\n";
}