my ($val1, $val2, $val3) = $string =~ /(.)(.)(.)/;