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