>perl -e "my $foo=\"201 AD\"; if ($foo =~ /(201*)/) {print $1 . \"\n\";}"
201