DB<198> {package LIKE; sub AUTOLOAD { my ($field) = $AUTOLOAD =~ m/\w+::(\w+)/; print "$field @_" }}
  DB<199> field LIKE '%abc%'

field LIKE %abc%