my $name = qr/\w{1,100}/;
my $num  = qr/\d{1,100}/;

$input =~ m{
   employee
   \(
   ($name)
   ,\s*
   ($name)
   ,\s*
   ($num)
   \)
   }x;
my ($first_name, $last_name, $number) = ($1, $2, $3);