require File::HomeDir;
$filename =~ s/^~(\w+)/File::HomeDir->users_home("$1")/e;
$filename =~ s/^~/File::HomeDir->my_home/e;