perl -MO=Deparse -e "sub find_symbol { got to here today! (20180520)}"
sub find_symbol {
    'to'->got('today'->here(!1));
}