regular expressions 관련 질문입니다.

select ID from users where priority='' and test='yes' group by ID
select ID from users WHERE test='yes' group by ID

#!/usr/bin/perl
use strict;
use warnings;
 
open(FH,$ARGV[0]);
while (my $line=<FH>) {
    $line=~m/(.*)where(.*)group(.*)/i;
    print "$2\n";
}