print if !/cr\d$/ && $_ = (split)[3];

##</code><code>##

if (!/cr\d$/ && s/^confederation-as-router:\W+\d\W+\d\W//) {
   ...
}

##</code><code>##

if (!/cr\d$/ && ($host, $last) = (split)[0,3]) {
   print $last if $host eq 'confederation-as-router:';
}