Wed, 28 Jul 2004 9:12 PM  ( 14 hours 34 mins ago )

##</code><code>##

$value=~s/M.*$/M/;

##</code><code>##

$value=~s/[AP]M.*$//;