DB<1> @t = localtime DB<2> $min = $t[1] DB<3> p $min 31 DB<4> x @t 0 11 1 31 2 18 3 13 4 10 5 105 6 0 7 316 8 1 DB<5> $s = "the cat jumped over the sky blue fox" DB<6> @m = $s =~ m/(the)/g DB<7> p @m thethe DB<8> x @m 0 'the' 1 'the' DB<9> p scalar @m 2