#!/usr/bin/perl
 
my $string = "bl/ah";
 
# Traditional '/'s: Without the backslash below to escape the forward slash,
# we'll get a runtime error.
print "1\n" if ( $string =~ /bl\/ah/ );
 
# These work just fine, however.
print "2\n" if ( $string =~ "bl/ah" );
 
# Note that by using 'm' (match) before the regex, you can use virtually any
# character/brace as a surrounding characters. Without the 'm', you'd hit a
# runtime error in the two matches below:
print "3\n" if ( $string =~ m;bl/ah; );
print "4\n" if ( $string =~ m{bl/ah} );
 
# There is also a similar thing for single and double quotes, like the below:
# qq is the double quote (") equivalent:
print qq/test\n/;
# q is the single quote (') equivalent.
print q/test\n/;
 
# Note that \n isn't processed as a new line in single quotes. This is because
# double quotes in perl will process any special characters and variable names
# in the text (so you can include variables inline), and single quotes do not
# for example:
print "\nThe value of \$string in:\n";	# Note the backslash escaped \$
print "Double quotes: $string\n";
print 'Single quotes: $string';

IyEvdXNyL2Jpbi9wZXJsCgpteSAkc3RyaW5nID0gImJsL2FoIjsKCiMgVHJhZGl0aW9uYWwgJy8nczogV2l0aG91dCB0aGUgYmFja3NsYXNoIGJlbG93IHRvIGVzY2FwZSB0aGUgZm9yd2FyZCBzbGFzaCwKIyB3ZSdsbCBnZXQgYSBydW50aW1lIGVycm9yLgpwcmludCAiMVxuIiBpZiAoICRzdHJpbmcgPX4gL2JsXC9haC8gKTsKCiMgVGhlc2Ugd29yayBqdXN0IGZpbmUsIGhvd2V2ZXIuCnByaW50ICIyXG4iIGlmICggJHN0cmluZyA9fiAiYmwvYWgiICk7CgojIE5vdGUgdGhhdCBieSB1c2luZyAnbScgKG1hdGNoKSBiZWZvcmUgdGhlIHJlZ2V4LCB5b3UgY2FuIHVzZSB2aXJ0dWFsbHkgYW55CiMgY2hhcmFjdGVyL2JyYWNlIGFzIGEgc3Vycm91bmRpbmcgY2hhcmFjdGVycy4gV2l0aG91dCB0aGUgJ20nLCB5b3UnZCBoaXQgYQojIHJ1bnRpbWUgZXJyb3IgaW4gdGhlIHR3byBtYXRjaGVzIGJlbG93OgpwcmludCAiM1xuIiBpZiAoICRzdHJpbmcgPX4gbTtibC9haDsgKTsKcHJpbnQgIjRcbiIgaWYgKCAkc3RyaW5nID1+IG17YmwvYWh9ICk7CgojIFRoZXJlIGlzIGFsc28gYSBzaW1pbGFyIHRoaW5nIGZvciBzaW5nbGUgYW5kIGRvdWJsZSBxdW90ZXMsIGxpa2UgdGhlIGJlbG93OgojIHFxIGlzIHRoZSBkb3VibGUgcXVvdGUgKCIpIGVxdWl2YWxlbnQ6CnByaW50IHFxL3Rlc3Rcbi87CiMgcSBpcyB0aGUgc2luZ2xlIHF1b3RlICgnKSBlcXVpdmFsZW50LgpwcmludCBxL3Rlc3Rcbi87CgojIE5vdGUgdGhhdCBcbiBpc24ndCBwcm9jZXNzZWQgYXMgYSBuZXcgbGluZSBpbiBzaW5nbGUgcXVvdGVzLiBUaGlzIGlzIGJlY2F1c2UKIyBkb3VibGUgcXVvdGVzIGluIHBlcmwgd2lsbCBwcm9jZXNzIGFueSBzcGVjaWFsIGNoYXJhY3RlcnMgYW5kIHZhcmlhYmxlIG5hbWVzCiMgaW4gdGhlIHRleHQgKHNvIHlvdSBjYW4gaW5jbHVkZSB2YXJpYWJsZXMgaW5saW5lKSwgYW5kIHNpbmdsZSBxdW90ZXMgZG8gbm90CiMgZm9yIGV4YW1wbGU6CnByaW50ICJcblRoZSB2YWx1ZSBvZiBcJHN0cmluZyBpbjpcbiI7CSMgTm90ZSB0aGUgYmFja3NsYXNoIGVzY2FwZWQgXCQKcHJpbnQgIkRvdWJsZSBxdW90ZXM6ICRzdHJpbmdcbiI7CnByaW50ICdTaW5nbGUgcXVvdGVzOiAkc3RyaW5nJzs=