#!/usr/bin/perl -w

$in = (); # usr input
$exit = 'n'; # done yet?
$final = (); # final output
%acro = ();  # hash for acronyms

%acro = (
'HTML' => "Hypertext Markup Language",
'ICBM' => "Intercontinental Ballistic Missile",
'EEPROM' => "Electronically-erasable programmable read only memory",
'SCUBA' => "Self Contained Underwater Breathing Aparatus",
'FAQ' => "Frequently Asked Questions",
'LCARS' => "Library Computer And Retrieval System", # my own goofy ass addition. Others welcome! 
'NASA' => "National Aeronautical and Space Administration" # ditto
);

while () {
  print "\nPlease enter an acronym": ";
  chomp($in = <STDIN>);
  print "\n";
  foreach $ac (keys %acro) {
   if ($in =~ /$ac/ig) {
    $final = "\n$ac is the acronym for $acro{ac} \n\n";
    last;
   }
  else {
    $final = "\nSorry. But that is not an acronym that I recognize!\n";
   }
  print $final;
  $final = ();
  print "\nTry again? : ";
  chomp ($exit =~ /[y|yes]/i {
   next;
   print "\n";
   last;
   }
  print "\n";
  last;
}
<br><br>