Sanitizes user input (names) and prints out in form of "First M. Last"

name_sanitizer.pl

#!/usr/bin/perl
use strict;
use warnings;

#Prints out the name in a "sanitized" form of "First M. Last"; that is, first name, space, middle initial, period, space, last name.
#If there is no middle name, prints the letter X with no period following it.
#If there are multiple middle names, uses the initial of the first one.


my $name = "Melanie Aurelia Shebel";
my @names = split ' ', $name;
my $first_name = shift @names;
my $last_name = pop @names;
my $middle_name = shift @names;
my $middle_initial;
if ($middle_name eq false)
{
  $middle_initial = 'X';
  print "$first_name $middle_initial $last_name", "\n";
}
else
{
  $middle_initial = substr($middle_name, 0, 1);
  print "$first_name $middle_initial. $last_name", "\n";
}

$name = "Walter H. White";
@names = split ' ', $name;
$first_name = shift @names;
$last_name = pop @names;
$middle_name = shift @names;
if ($middle_name eq undef)
{
  $middle_initial = 'X';
  print "$first_name $middle_initial $last_name", "\n";
}
else
{
  $middle_initial = substr($middle_name, 0, 1);
  print "$first_name $middle_initial. $last_name", "\n";
}

$name = "Albert Einstein";
@names = split ' ', $name;
$first_name = shift @names;
$last_name = pop @names;
$middle_name = shift @names;
if ($middle_name eq undef)
{
  $middle_initial = 'X';
  print "$first_name $middle_initial $last_name", "\n";
}
else
{
  $middle_initial = substr($middle_name, 0, 1);
  print "$first_name $middle_initial. $last_name", "\n";
}

$name = "John Jacob Jingleheimer Schmitt";
@names = split ' ', $name;
$first_name = shift @names;
$last_name = pop @names;
$middle_name = shift @names;
if ($middle_name eq undef)
{
  $middle_initial = 'X';
  print "$first_name $middle_initial $last_name", "\n";
}
else
{
  $middle_initial = substr($middle_name, 0, 1);
  print "$first_name $middle_initial. $last_name", "\n";
}