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