networktestinggenius.tk

#to match any email address
set a "Raj_btech23@rediffmail.com"
if {[regexp -- {^[A-Za-z0-9._-]+@[[A-Za-z0-9.-]+$} $a b]} {
puts $b
} else {
puts fail
}
#puts $a

#To match any url
set url https://groups.google.com
regexp -all {^[a-z]+\:\/\/[0-9.a-z_/]+} $url new
puts $new