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