First steps [contd.] 

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