sub parse {
  my ($string) = @_;
  print "\nParse $string: ";
  
  foreach $offset (0..(length($string)-1)) {
        $char = substr($string, $offset, 1);