From: Paul Johnson Date: Tue, 7 Sep 2004 15:13:51 +0000 (+0200) Subject: perlintro.pod X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=59ca07c7edc9811274fdf723986979460325278a;p=p5sagit%2Fp5-mst-13.2.git perlintro.pod Message-ID: <20040907131351.GD2513@pjcj.net> p4raw-id: //depot/perl@23276 --- diff --git a/pod/perlintro.pod b/pod/perlintro.pod index 7429dfb..cb115ec 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"; }