#!/usr/bin/perl                                        -w
             use           strict;                 open+0;
              ($_       =join   "",              <0>  )=~
                s/\S/x/g;         print"Snake\n$_"