perl -E "say 'match' if q{} eq ''" match