[perkins][lab2-2][~] cd Lecture23
[perkins][lab2-2][~/Lecture23] perl Pat1.pl
ba matches! (,ba,)
but matches! (b,ut,)
butte matches! (b,ut,te)
bat matches! (,ba,t)
bet matches! (b,e,t)
bottle matches! (b,o,ttle)
beetle matches! (b,e,etle)
[perkins][lab2-2][~/Lecture23] perl Pat2.pl
ba doesn't match!
but matches! (,but,)
butte matches! (,but,te)
bat matches! (,bat,)
bet matches! (,bet,)
bottle matches! (,bot,tle)
beetle doesn't match!
[perkins][lab2-2][~/Lecture23] perl Pat3.pl
I'm right!
[perkins][lab2-2][~/Lecture23] perl Pat3.pl
I'm right!
[perkins][lab2-2][~/Lecture23] perl Pat4.pl
I'm right!
[perkins][lab2-2][~/Lecture23] perl Pat5.pl
I'm wrong!
[perkins][lab2-2][~/Lecture23] perl Pat6.pl
I'm wrong!
[perkins][lab2-2][~/Lecture23]