perl programs
Regular Expression for email id in perl
print”enter value”;chomp($a=<>);print “$a \n”;if($a=~/((\w*)[@](\w*)[.](\W*))/){print”equal”;}else{print”not equal”;}
t H e — C o M p L e T e — I n F o
print”enter value”;chomp($a=<>);print “$a \n”;if($a=~/((\w*)[@](\w*)[.](\W*))/){print”equal”;}else{print”not equal”;}