#!/usr/bin/perl
use warnings;
use strict;

my $html= $ARGV[0];
my $content = `lynx --dump $html`;
#print "$content\n";

my @lines = split(/\n/,$content);
#print "@lines\n";

my @addrs;

while(<@lines>){

  if( my ($num)= $_ =~ /(\b\w{1,}\Q@\E\w{1,}\b)/ ){
      #print "$num \n";
      push @addrs, $num;
     }
  }

print "@addrs\n";