my @l = $s =~ /^(.*?)([\w.]*) like ('.*')(.*)$/;
print join "\n", @l;