with VB there is the LEFt and RIGHT functions.. but those dont exist in perl.. so how do you cut up a string?