print {"S$_"} $string;