if (@arr) {
        print $arr[-3]
    } if $_ =~ /.*\..*@/