# ...

unless($os_user =~ m/^[A-Za-z]{3}[0-9]{3}$/) {
   die "Invalid username: $os_user";
}

# ...