print /pattern/ ? "$_$/" : '' for @arr;