#!/usr/bin/perl -w

use strict;
my $x = 'Ms a smith jr';

print "Name valid\n" if $x =~ m/^(\s+)?(M(s|rs?|iss)\.?)?\s+([A-Z]+)(\.)?(\s+)([A-Z]+)(\s+)?([A-Z]+)?$/i;