say $_~[""," AM"xx 11," PM"][$_~~/^\d+/]for lines