Fei Nan.com Blog

echo -n ‘abc.efgh.ijk.lmn’ | perl -ne ‘{while (/([a-z]+)\.([a-z]+)(.*)/) {
print “$1.$2\n“; $_ = $2.$3;}}‘