#!perl -p
$_*($_<13)&&s/$/ AM/;/^12/&&s/A/P/