perl -ne 'print "valid\n" if $_ =~ /\w\@\w+\.\w+[a-z]$/ ;' /dev/stdin

Return to article...[an error occurred while processing this directive]