>perl -wMstrict -le
"my %hash = (server => 'Foobar');
 ;;
 $_ = 'Foobar today';
 ;;
 my $uname;
 if (/^$hash{server}/) {
   $uname = 'not recognized';
   }
 ;;
 print qq{$_ $uname};
"
Foobar today not recognized