FQDN からドメイン名を取得する Perl ワンライナー

% echo w.w.w.google.co.jp|perl -pwe 's/.*\.([a-zA-Z0-9\-]+\.)(com|co\.jp|ne\.jp)/$1$2/'
google.co.jp