1substr($2, 1, 1) ~ /[abc]/
2substr($2, length($2)) !~ /[a-z]/
3substr($2, length($2)) ~ /./
4