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”;}
Life Hacks
print”enter value”;chomp($a=<>);print “$a \n”;if($a=~/((\w*)[@](\w*)[.](\W*))/){print”equal”;}else{print”not equal”;}