I had to go a bit further:

my $prompt     = $ENV{PS1};
$ENV{HOSTNAME} =~ s/\..*//;
$prompt =~ s!\\u!$ENV{USER}!g;
$prompt =~ s!\\h!$ENV{HOSTNAME}!g;
$prompt =~ s!\\w!$ENV{PWD} eq $ENV{HOME} ? '~' : $ENV{PWD}!eg;
$prompt =~ s!\\\$!$> ? '$' : '#'!eg;
[download]