echo "/d1/d2/43a/" | perl -n -wE '$_ =~ m| ( ~? /.*/ ) |x; say "$1"'

echo "~/d1/d2/43a/" | perl -n -wE '$_ =~ m| ( ~? /.*/ ) |x; say "$1"'

echo "~/d1/d2/43a/" | perl -n -wE '$_ =~ m| ( ~? /.*/ ) |x; say "$1"'

echo "/d1/d2/43a/" | perl -w -pe 's|(~?/.*/)|$1|';

echo "/d1/d2/43a/" | perl -w -pe 's|(~?/.*/)|$1|';