#!perl -pl
$_.=("",(" AM")x11," PM")[$_]