Explique cada una de las líneas que siguen:
$ perl -wde 0
main::(-e:1): 0
DB<1> $x = "ababab"
DB<2> $x =~ m{b}g; print "match= ".$&." pos = ".pos($x)
match= b pos = 2
DB<3> $x =~ m{b}g; print "match= ".$&." pos = ".pos($x)
match= b pos = 4
DB<4> $x =~ m{b}g; print "match= ".$&." pos = ".pos($x)
match= b pos = 6
DB<5> print "falso" unless $x =~ m{b}g
falso