$\=$/; sub print { CORE::print("[$_[0]]"); } print('foo'); # foo &print('bar'); # [bar]