my $rows = () = $inp =~/(?<=^)\w/msg;