$_ = 'Hello Perl';
say '$_ = \'Hello Perl\';';
print "\$1: $1\n\$2: $2\n\$3: $3\n\$&: $&\n\n";

# unsuccessful match
/Python/;
print "No match, \/Python\/\n";
print "\$1: $1\n\$2: $2\n\$3: $3\n\$&: $&\n\n";

# successful match
if (//) {
    print "No nothing, if (\/\/) {\n";
    print "\$1: $1\n\$2: $2\n\$3: $3\n\$&: $&\n\n";
} else {
    print "\/\/ unsuccessfull match";
}
 
# successful match, no captures
/Perl/;
print "Match \/Perl\/, No captures\n";
print "\$1: $1\n\$2: $2\n\$3: $3\n\$&: $&\n\n";

# successful match, empty pattern
if (//) {
    print "No nothing, if (\/\/) {\n";
    print "\$1: $1\n\$2: $2\n\$3: $3\n\$&: $&\n\n";
} else {
    print "\/\/ unsuccessfull match";
}
 
# successful match, no captures
/Perl/;
print "Match \/Perl\/, No captures\n";
print "\$1: $1\n\$2: $2\n\$3: $3\n\$&: $&\n\n";

# successful match, no pattern, empty parens
if (/()/) {
#//;
    print "No nothing, if \(\/\(\)\/\) {\n";
    print "\$1: $1\n\$2: $2\n\$3: $3\n\$&: $&\n\n";
} else {
    print "\/\/ unsuccessfull match";
}