#!/usr/bin/perl
$email = "blah\@blah.com";

if ($email =~ /^[-!#$%&\'*+\\.0-9=?A-Z^_`a-z{|}~]+@[-!#$%&\'*+\\0-9=?A-Z^_`a-z{|}~]+\.[-!#$%&\'*+\\.0-9=?A-Z^_`a-z{|}~]+$/ ) {
	print "valid\n";
}