_STRING_2_PATH.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_STRING_2_PATH();}
1;
sub _STRING_2_PATH {
#:::::::::::::::::::::::::::::::::::::::::::::::::::::::
#::: CONVERT SPECIAL PATH STRING TO REAL PATH        :::
#:::::::::::::::::::::::::::::::::::::::::::::::::::::::
    my $input = shift;
    my $S_SEP = shift || $PIT;
    print "  _STRING_2_PATH($input)\n" if $DEBUG > 0;
    if ($input =~ /,/) {
        $S_SEP=$input;
        $S_SEP=~ s/.*,//;
        $input=~s/,.*//g;
    }