in reply to Practical joke
my $prompt = $ENV{PS1}; $prompt =~ s|\\u|$ENV{USER}|g; $prompt =~ s|\\h|$ENV{HOSTNAME}|g; [download]
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]