our %whitespace = ( "\f" => "f","\n" => "n","\r" => "r","\t" => "t" );

$netid =~ (s/(\s)/$whitespace{$1}/g);
$netid =~ (s/(AD|MAIN)//);