Select Code to Download

# Example 1
#
...
      } else {                                                # or
      print "No match in our string for our pattern.\n";      # As you
+'ll see...
  }                                                           # end

while (<>) {
    if (/brus/) {
        print $_;
    }
}

# Example 2
#
...
      } else {
      print "No match in our string for our pattern.\n";      # As you
+'ll see...
  }                                                           # end

# Example 3
#
...
  if (/brus/) {   # Our pattern of brus
   print "There, brus showed up.\n" ;   # if pattern is found, print i
+t!
  }                                                                   
+                    # end

# example 4
#
...
if (s/bru*s/brus/) {                                     # fixing it
 print $_ ;                                              # proving we 
+fixed it.
 }

# example 5
#
...
if (/a/) {
 print $_ ;
 }

# example 6
#
print "Hello" . ' ' . "world"; #Same as 'Hello world'

# example 7
#
...
 print $_ ;
 }
#

# example 8
#
...
if (/[q-zQ-Z]/) {
 print $_ ;
 }