#!/usr/bin/perl

$text = "The quick brown fox (foxy\@jumper.com) jumped over the lazy 
yellow dog.";
# ^ - beginning of string
#$ - end of string
# . - wild card
# + - one or more
# * - 0 or more

#if ($text =~ /(\S+\@\S+(\.\S+){2,3})/) {
if ($text =~ /^fox/) {
	print "$1\n";
} else {
	print "No\n";
}
