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