use lib $ENV{HOME} . '/_/0'; #### print "<$string>\n"; #### #### $string = trim ($string);