diff options
Diffstat (limited to 'pod/perlintro.pod')
| -rw-r--r-- | pod/perlintro.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlintro.pod b/pod/perlintro.pod index 23abd836c5..8a80ef4cee 100644 --- a/pod/perlintro.pod +++ b/pod/perlintro.pod @@ -560,7 +560,7 @@ The results end up in C<$1>, C<$2> and so on. # a cheap and nasty way to break an email address up into parts - if ($email =~ /([^@]+@(.+)/) { + if ($email =~ /([^@])+@(.+)/) { print "Username is $1\n"; print "Hostname is $2\n"; } |