$line =~ /^(\w.*?), by (.*?)\s+(\d+)$/; $author = $1; $title = $2; $id = $3;