practice perl-2 thinking regxp