X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlintro.pod;h=cb115ecb757c10af47044da2c6c89efb0b068570;hb=2810d90162dc487ea10933114344f32d14b3d619;hp=5fc9b66e850c32c3827e50b41c39f1279abc061a;hpb=f224927c1e379a33cd6d5e0a5d25d0ecb9c9d964;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/perlintro.pod b/pod/perlintro.pod
index 5fc9b66..cb115ec 100644
--- a/pod/perlintro.pod
+++ b/pod/perlintro.pod
@@ -55,7 +55,7 @@ Alternatively, put this as the first line of your script:
 to be executable first, so C<chmod 755 script.pl> (under Unix).
 
 For more information, including instructions for other platforms such as
-Windows and MacOS, read L<perlrun>.
+Windows and Mac OS, read L<perlrun>.
 
 =head2 Basic syntax overview
 
@@ -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";
     }