#!/usr/bin/perl -w

use strict;
use warnings;

my $file = $ARGV[0];

open (IN, "<$file) or warn "usage: $0 FILE\n" and exit(1);

while(<IN>) {
  print $& . "\n"  if /[-_.\d\w]{1,32}@[-_.\d\w]{1,64}/;
}

close IN;