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