for (@lines) {
    s/(\d+\s+)(.+)$/$1(Birthday) $2 - singer/;
    print;
}