my %data = (
  RN => 'Joe',
  LOC => '3rd floor',
  UN => 'juser',
);

my $prompt = "-RN- \@ -LOC-";
$prompt =~ s/-([^-]+)-/$data{$1} || "-$1-"/eg;