problem with perl snips