10: use Data::Dumper;
                               11:
                                 12: my $info = "dog";
                                   13:
                                     14: {
                                       15:   try($info);


##</code><code>##

foreach {
("^    ")  && | [[0-99]:];
print "";
}  

##</code><code>##

sed s/^[ \t]*// #remove leading whitespaces
sed s/^[0-9]*//g #remove leading numbers
sed s/^:*//g  #remove leading ":"