#!perl -p
/^(\W*.00+)+$/*($_*=/ /*$')?chop:s;-?\w{9,};E