the function Left (text ; numberofcharacters) will do that, so
Set Field [yourtable::yournewfield ; Left (yourtable::youroriginalfield ; 5)]
If this is a one time thing, a simple calculated replace with work. No scripting. If not then symbister's info is good.
This method might fail to work as expected if the fields are not defined in the same table.