$agent =~ m/[A-Za-z]*/;

##</code><code>##

$agent =~ m/PerlBeginner(Perl)?/;