my $addr = shift;
unless ($addr) {die $USAGE}
my ($username, $domain) = split /\@/, $addr;

##</code><code>##

die $USAGE unless @ARGV == 3; #or however many args you want