if (length($service_screens) > 255) {
		
			print "These are $service_screens string is over 255 \n\n";
						
			$find->ClearFormatting;
			$find->{Text}="##TOKEN_REPLACE##";
			$find->Replacement->ClearFormatting;
			$find->Replacement->{Text}="Service Screens";
			#$doc->ActiveWindow->Selection->MoveDown(wdLine,1);
			#$doc->ActiveWindow->Selection->TypeText("Can't write scalar because it's over 255 chars??");
			$find->Execute({Replace=>$wd->{wdReplaceAll},Forward=>$wd->{True}});
			
		} else {

			$find->ClearFormatting;
			$find->{Text}="##TOKEN_REPLACE##";
			$find->Replacement->ClearFormatting;
			$find->Replacement->{Text}=$service_screens;
			#$doc->ActiveWindow->Selection->MoveDown(wdLine,1);
			#$doc->ActiveWindow->Selection->TypeText("This line should be after the Service screen");
			$find->Execute({Replace=>$wd->{wdReplaceAll},Forward=>$wd->{True}});
		}