next unless /^<input name/i; 
   my ($name, $value) = $_ =~ /input name="(.*)Name" type=.* value="(.*)">/i; 
   if ((length($value)) > 1){ 
        $MiddleName = $value; 
        #Some Stuff Code... 
        print "$MiddleName";<br><br>