c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'workset((ab;joiret;garg)) c wasdobao; erhgahufdgah; c workset((adsghlia) c aghaoeriarg;oi
c aasdfgohaerg c workset(empty) c ah;sorguiaerg c aoi;hgruio;ghaer c playA c dIonly';
 print qq{'$s'};
 ;;
 my $rev_dIonly  = qr{ ylnoId }xms;
 my $rev_workset = qr{ \(\( teskrow }xms;
 ;;
 my $rs = reverse $s;
 my ($capture) = $rs =~ m{ ($rev_dIonly .*? $rev_workset) }xms;
 print qq{'$capture'};
 $capture = reverse $capture;
 print qq{'$capture'};
"
'workset((ab;joiret;garg)) c wasdobao; erhgahufdgah; c workset((adsghlia) c aghaoeriarg;oi c aasdfgo
haerg c workset(empty) c ah;sorguiaerg c aoi;hgruio;ghaer c playA c dIonly'
'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'