or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'workset((ab;joiret;garg)) c wasdobao; erhgahufdgah; c workse
+t((adsghlia) c aghaoeriarg;oi
...
'ylnoId c Ayalp c reahg;oiurgh;ioa c greaiugros;ha c )ytpme(teskrow c
+greahogfdsaa c io;graireoahga
c )ailhgsda((teskrow'
'workset((adsghlia) c aghaoeriarg;oi c aasdfgohaerg c workset(empty) c
+ ah;sorguiaerg c aoi;hgruio;ghaer c playA c dIonly'