path: root/B1

$ActualRevision = "M";

($junk, $ActualRevision) = '';

chop($ActualRevision);

($name, $ActualRevision, $junk) = split(/\s+/, $ActualRevision);