use String::Util ':all';
 
 $val = ' abc ';
 
 # "crunch" whitespace and remove leading/trailing whitespace
 $val = crunch($val);

 # remove leading/trailing whitespace
 $val = trim($val);
 
 print ">$val<";