This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perlintro.pod
authorPaul Johnson <paul@pjcj.net>
Tue, 7 Sep 2004 15:13:51 +0000 (17:13 +0200)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Tue, 7 Sep 2004 12:57:58 +0000 (12:57 +0000)
Message-ID: <20040907131351.GD2513@pjcj.net>

p4raw-id: //depot/perl@23276

pod/perlintro.pod

index 7429dfb..cb115ec 100644 (file)
@@ -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";
     }