... if ( substr($username, 0, 1) eq "0" ) ...