#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
 
my $ClearScreen = $^O =~ /win32/i ? sub { system 'cls' } 
                                  : sub { system 'clear' }; 
 
CreateAcronym(); 
 
exit; 
 
######################### 
 
sub CreateAcronum { 
 
    $ClearScreen->(); 
 
    my $prompt = "Enter the phrase you want to turn into an acronym.\n";     
    print $prompt, '-' x length($prompt); 
    chomp(my $phrase = <>); 
     
    my $acronym = join('', map { uc(substr($_,0,1)) . '.' } split " ", $phrase); 
     
    my $prompt2 = "The acronym for the phrase '$phrase' is:\n"; 
    print "\n", $prompt2, '-' x length($prompt2), "\n$acronym\n\n"; 
 
    CreateAcronym() if WantToPlayAgain(); 
} 
 
sub WantToPlayAgain { 
    my $reply; 
    do { 
        print "Make another acronym? (y or n)\n"; 
        chomp($reply = <>); 
     
        if ( $reply =~ /^y(es)?/i ) { 
            return 1; 
        } 
        if ( $reply =~ /^no?/i ) { 
            print "\nOkay! Have a good day! \n"; 
            exit; 
        } 
        print "Please select Y or N (yes or no).\n"; 
         
    } until $reply =~ /^y|n/i; 
}